Avatar billede macho Praktikant
26. januar 2010 - 09:07 Der er 1 løsning

Vedhæfte fil i Outlook og indsætte tekst i e-mail (VBA - makro)

Hej,

Simpelt spørgsmål men alt for svært for mig:

Jeg har et word dokument åbent i Word 2003. Jeg har pt. en VBA-kode til at vedhæfte det åbne word-dokument i en ny mail i Outlook 2003 (ActiveDocument.SendMail).
Samtidig har jeg kopieret tekst fra dokumentet til udklipsholderen - dette skal indsættes i tekstfeltet i den nye mail.
Når filen er vedhæftet og teksten indsat i ny e-mail (begge dele v.hj.a. VBA-kode) skal mail stå åben og klar til at jeg manuelt kan tilføje modtagere i mailen.

Håber på en klog løsning på mit problem?
Avatar billede kdasummer Nybegynder
26. januar 2010 - 09:42 #1
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.Body = ""
.Attachments.Add "sti/til/fil"
.Display  'eller brug .Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

---------

.display åbner mailen i outlook så man kan redigere den inden den bliver afsendt og .send sender mailen med det samme.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Tag et kursus i Word og øg effektiviteten

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester