Hallo,
wie kann man aus VBA heraus z.B. Outlook aufrufen und eine Datei mit Übergeben um sie per Mail zu verschicken?
Hallo Husky,
folgenden Code kannst Du z.B. als Word-Makro verwenden:
'----------------------------------------------
Sub SendEmail()
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objMailItem As Object
Set objOutlook = CreateObject(„Outlook.Application“)
Set objNameSpace = objOutlook.GetNameSpace(„MAPI“)
Call objNameSpace.Logon
Set objMailItem = objOutlook.CreateItem(0)
objMailItem.To = „[email protected]“
objMailItem.Subject = „Test-Betreff“
objMailItem.Body = „Das ist der Text“
objMailItem.Attachments.Add „c:\temp\test.doc“
Call objMailItem.Send
Call objNameSpace.Logoff
End Sub
'----------------------------------------------
Ich hoffe, Du machst damit keine Dummheiten - Makro-Viren gibt’s schon genug auf dieser Welt!!!
greets from MichL (Vienna)