Atomatisering af Outlook2000 fra excel VBA

Hej Bak!

Jeg har desværre ikke Outlook installeret herhjemme, så jeg har ikke testet det, men prøv at se på dette link:

http://www.j-walk.com/ss/excel/tips/tip86.htm

Kan ikke lige få fat i body på en fornuftig måde, men mon ikke man så bare kan springe over hvor gærdet er lavest med en sendkeys:

    Dim ol As Outlook.Application, olm As Outlook.MailItem
    Set ol = CreateObject("Outlook.Application")
    Set olm = ol.CreateItem(olMailItem)
    Cells.Copy
    olm.Display
    olm.BodyFormat = olFormatHTML
    SendKeys "" & vbTab & vbTab & vbTab & vbTab & "^a^v"

Du skal bruge en reference til "Microsoft Outlook x.x Object Library" (Tools - References).

Tak for det, begge to.
begge dele er testet og funker efter hensigten. :-)
begge svar gør brug af sendkeys for at paste og det er åbenbart den eneste mulighed. Når selv J.Walk er nødt til at bruge det, findes der nok ikke andre muligheder.
Jeg havde selvfølgelig håbet på noget alm. paste eller OLE- drag&drop.
Tak for hjælpen.

ps mortrr-> den æder ikke linien olm.BodyFormat = olFormatHTML

Velbekomme!

Personligt bryder jeg mig ikke om løsninger baseret på sendkeys, da de er lidt risikable, hvis ikke den rigtige applikation er i forgrund når de udføres, men ind imellem er der ikke andre muligheder.

Prøv med
olm.BodyFormat = 2

og tak.

måske kan du bruge den kode jeg fandt på en tysk side. Se
http://www.eksperten.dk/spm/323579

Den er meget god, bortset fra et punkt:
  .Body = ClpObj.GetText(1)
Den fjerner al formattering på det indsatte.

hov-sa -> du skal også ha' point for det.

Så siger jeg mange tak.

Desværre har jeg ikke kunnet finde noget om hvordan man bibeholder formateringen.