Datei mit Outlook verschicken die zweite
28.01.2004 12:58:03
tko
habe doch noch ein Problem mit dem verschicken per Outlook.
Ich möchte eine Datei per Outlook als Anhang verschicken.
Im Betreff oder im Textfeld soll einen Eintrag der in einer Zelle in der Datei steht mit ausgeben.
Geht das irgendwie.
Der bisherige Code lautet:
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject(Outlook.Application)
Dim AWS As String
Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = irgendwer@provider
.Subject = Testmeldung von Excel2000 & Date & Time
.attachments.Add AWS
.Body = Das ist ein Test. & vbCrLf & Bitte ignorieren.
Hier wird die Mail nochmals angezeigt
.Display
Hier wird die Mail gleich in den Postausgang gelegt
Mail.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Könnt Ihr mir bitte helfen DANKE !!!!!!!!!!!!!
Anzeige