E-Mail aus Excel
21.06.2004 18:53:43
Det
habe da mal wieder ein Problem
Aus einer Excelanwendung werden mittels Makro Daten in verschiedene andere Exceldateien geschrieben. Die Daten werden übertragen, die Dateien mit unterschiedlichem Inhalt anschließend gespeichert und geschlossen. Ich habe nun die Möglichkeit die einezelnen Dateien aus der Excelgrundanwendung mittels Butten an die verschiedenen Empfänger zu senden. Dabei werden Empfänger, Betreff und Mailtext aus Zellen bzw. Textbox der Arbeitsmappe ausgelesen. Soweit funktioniert alles wunderbar. Zur Sicherheit lasse ich mir das Ganze in Outlook nochmal anzeigen und habe nun die Möglichkeit zu senden oder abzubrechen.
Mein Problem liegt nun darin, dass ich gern eine Rückmeldung an Excel (Zelle) hätte ob die Mail tatsächlich gesendet wurde oder nicht. Bei Betätigung Sendebutten (Datum und Zeit), bei Abbruch ("...wurde nicht gesendet")
Das nachfolgende Makro gibt mir Datum und Zeit, jedoch auch bei Abbruch, da ich es direkt ins Makro gesetzt habe
Sub Mailer_RVB_senden()
Dim ol As Outlook.Application, mail As Outlook.MailItem
On Error Resume Next
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(O)
With mail
'Empfanger
.To = Workbooks("XYZ.xls").Sheets("XYZ").Range("X15")
'Empfanger CC
.cc = Workbooks("XYZ.xls").Sheets("XYZ").Range("Y15")
'Betreff
.Subject = Workbooks("XYZ.xls").Sheets("XYZ").Range("Z15")
'Nachricht
.Body = Workbooks("XYZ.xls").Sheets("XYZ").Mail_Text & Chr(13) & Chr(13)
'Lesebestatigung ein
.ReadReceiptRequested = True
'Dateianhang
.Attachments.Add ThisWorkbook.Path & "\" & "XYZ 2004 Bereich A.xls"
'Anzeigen
.Display
'Senden
'.send 'auskommentiert, Wahl in MailItem direkt
End With
Set ol = Nothing
Set mail = Nothing
Workbooks("XYZ.xls").Sheets("XYZ").Range("AA15") = Date & " " & Time
End Sub
Ich hoffe auf Hilfe und danke im Voraus
Gruß Det