Hallo An Alle
ich habe es geschafft ein Macro zusammen zu stellen zum versand einer Email aus Excel.
KLappt alles soweit so gut.
Besteht die Möglichkeit dieser Email ein einzelnes Datenblatt mit anzuhängen?
Mein CODE:
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
Sheets("Emailversand").Select
.To = Range("A2") 'Auswahl Emailadresse
.BCC = Range("A6") 'Auswahl Emailadresse Blindkopie
.Subject = Range("A3") 'Betreffzeile
.Body = Range("A4") 'Nachrichtentext
.Display
Sheets("Deckblatt").Select
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub