AW: e-mail-Adresse aus Zelle verwenden (VBA)
28.02.2006 15:31:19
CPFT
Erstmal Danke für die Mühe, aber:
Leider funktioniert´s so nicht.
Hier ist das Makro:
Sub BroadcastVersenden()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
Sheets("Broadcast").Select
SavePath = "D:\Broadcast"
Set OutApp = CreateObject("Outlook.Application")
ActiveSheet.Copy
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ActiveSheet.Range("A2") & "_" & Format(Date, "mmmyy")
AWS = ActiveWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.to = .Sheets("Broadcast").Range("A3").Value
.Subject = "Broadcast" & Format(Date, "yyyy-mm")
.Attachments.Add AWS
.body = "Sehr geehrte Damen und Herren," & Chr(13) & _
"" & Chr(13) & _
"anbei erhalten Sie unsere Planzahlen" & vbCrLf & "Mit freundlichen Grüßen" & Chr(13) & _
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
ActiveWindow.Close
Windows("Supplier Broadcast File.xls").Activate
Sheets("Broadcast").Select
End Sub
Kurze Erklärung: Es wird ein Tabellenblatt (Broadcast) als xls-Datei gespeichert und als Anhang in die kreierte Mail gesetzt.
Starte ich das Makro erhalte ich folgende Meldung: "Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht"