Re: Mail mit anhang senden
13.12.2002 00:43:20
Ramses
Hallo Christian,füge den Code in ein Modul deiner Arbeitsmappe ein, dann kannst du über einen Button oder ein Symbol in der Symbolleiste deine Mail versenden.
Allerdings gibt es unter 2000 und XP auch die Möglichkeit über "Datei - Senden an".
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
Code eingefügt mit Syntaxhighlighter 1.16
Gruss Rainer