(4)
Artikel
bewerten
(82% positiv)
(18)
Const olByValue = 1
Const olMailItem = 0
    
Dim oOApp 
Dim oOMail

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
    .To = "meinemailadresse.meine"
    .Subject = "Hier der Betreff"
    .Body = "was will ich schreiben "
    .Attachments.Add "c:\einetestdatei.txt", olByValue, 1
    .Send
End With




um den Zugriff für Skripts zu gewähren muss im Outlook: "Bei verdächtigen Aktivitäten nie Warnhinweis anzeigen (nicht empfohlen)" ausgewählt werden.(Outlook 2007):    Download
bei Outlook 2003 ist das etwas komplizierter:

siehe
www.outlookcode.com/article.aspx?ID=52

letzte Änderung dieses Artikels: 05.06.2016 13:30




Kommentare