Excel: Code für Versenden einer Mail?
Hallo Community, wie kann ich es hinbekommen, dass die Dateinicht nur in den Postausgang gelegt wird sondern auch versendet wird? hier mein Code:
Sub ExcelDateiSendenMitText()
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
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xxxx@xxx.com; xxxxx@xxx.de"
.Subject = Range("F1") & Date & Time
.attachments.Add AWS
.Body = "text blabla"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Ich weiß nicht weiter bitte um hilfe
Danke schon mal im Voraus
4 Antworten
habe es so lösen können:
Sub Mappe_versenden_als_EMail()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim MAdr As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Bezeichnung = ActiveWorkbook.Name
MAdr = "name@xxx.com" 'Deine E-Mail Adresse
Application.ScreenUpdating = False
With objMail
.To = MAdr
.Subject = Range("F1") & Date & Time
.Body = "text"
.attachments.Add ActiveWorkbook.FullName
.Send
End wthi
MsgBox ("..")
Application.ScreenUpdating = True
End Sub
Bei
'Mail.Send
das Hochkomma entfernen und in "Nachricht.Send" umbenennen.
Hallo,
Mail.Send ist doch auskommentiert -- dass sie über haupt in den "Senden-Ordner gelegt wird ??
die mail wird aber nicht versendet sondern nur in postausgang gelegt von
dem outlook account aus in dem ich angemeldet bin aber die empfänger
bekommen die nachricht nicht. die mail wird als noch nicht gesendet im
eigenen postausgang gespeichert. also asugeführt wird alles außer dass
die empfänger die mail erhalten
Welchen Fehler bekommst du denn bei Mail.Send (in deinem Fall Nachricht.Send)?
Hmm, das könnte eine Einstellung im Outlook sein. Leider nutze ich kein Outlook, sodass ich dir keine Lösung erarbeiten kann.
die mail wird aber nicht versendet sondern nur in postausgang gelegt von dem outlook account aus in dem ich angemeldet bin aber die empfänger bekommen die nachricht nicht. die mail wird als noch nicht gesendet im eigenen postausgang gespeichert. also asugeführt wird alles außer dass die empfänger die mail erhalten