Datei als E-Mail
11.03.2006 16:44:45
Tino
möchte aus einer Excel-Datei eine Mail versenden.
In diesem Mail sollen die ausgewählten Artikel
stehen. Bekomme es soweit auch noch hin, aber etwas komfortabler
könnte es schon sein, nun Brauche ich Eure Hilfe.
Mein Ansatz
Sub EMAIL()
Dim adresse As String
adresse = "mustermann@online.de" 'Musteradresse
Selection.Copy
Workbooks.Add
Range("A3").PasteSpecial
Range("A1").Value = "Bestellliste"
ActiveWorkbook.SendMail adresse, "Bitte Artikel Bestellen"
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Nun hätte ich in der Mail noch einen automatischen Text
eingefügt. z.Bsp.
_______________________________________________
Hallo,
bitte um Bestellung dieser Artikel.
und hier soll jetzt die Artikelliste stehen und nicht die Anlage.
MfG
Tino
_______________________________________________
Könnt ihr mir dabei Helfen?
Danke im vorraus
Euer Tino