Prøv at leg med dette stykke kode.
Det lægge en mail klar i kladder
Sub Mail()
Dim olApp As Object, olDrafts As Object
Dim olMail As Object
Dim Bdy As String
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
Set olDrafts = olApp.GetNamespace("MAPI").GetDefaultFolder(16)
With olMail
.Subject = "Emne"
Bdy = "Tekst" & vbCrLf & vbCrLf
Bdy = Bdy & "Tekst" & vbCrLf
.Recipients.Add "modtageradresse"
.Attachments.Add "evt. vedhæftet filnavn og sti"
.Move olDrafts
End With
Set olMail = Nothing
Set olApp = Nothing
--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"