Outlook
16.08.2002 08:16:28
Chris
ich verwende in meinem Script eine Übergabe an Outlook. Dies klappt auch sehr gut, doch ich möchte nun ein Attachment einfügen.
Hier mal mein Script:
Sub mailen()
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.Subject = "Test-Mail"
.Body = ""
.Attachments = MyDateiName
End With
myOLItem.Display
End Sub
MyDateiName definiere ich nachdem die Datei gespeichert wurde wie folgt:
Dim MyDateiName As String
MyDateiName = ActiveWorkbook.FullName
Wie bekomme ich nun mein Attachment mit dieser Variable hin?
Danke & Gruß
Christian