Aus Excel Email senden?
30.12.2003 18:28:37
Andre
Die dritte Zeile (Set OutApp = CreateObject("Outlook.Application")) macht schon Probleme! Ich arbeite mit OutlookExpress. Hängt es damit zusammen?
Nachfolgend werde ich wohl auch Schwierigkeiten bekommen, ich möchte nämlich nicht die aktive Arbeitsmappe versenden, sondern eine Textdatei. (Der Pfad zur Textdatei steht in Tabelle1!A1).
Der Empfänger der Email in Tabelle!A2.
Aber wie gesagt, an meinem ersten Problem scheitert schon alles!
Hat jemand ´n Tip für mich?
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
Gruß Andre