eMail mit Betreff und vorgegebenen Text versenden
16.09.2003 20:18:26
Oswald
Versuche aus Excel herraus eine eMail zu verschicken.
Es sollte automatisch die Adresse, der Betreff und ein in einer Variablen definierte Text und na klar eine Datei verschickt werden.
Verwende ich:
Workbooks("Lagerindex2.XLS").HasRoutingSlip = True
With Workbooks("Lagerindex2.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Mustermann")
.Subject = "Here is BOOK1.XLS"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
Workbooks("Lagerindex2").Route
kommt bei mir immer eine Meldung das Outlook "Unknow" nicht finden kann, wenn ich dann eine Adresse auswähle wird das Makro geschlossen aber es geschied nichts.
Mit:
ActiveWorkbook.SendMail emaillager1, betreff1
kann ich ja nur Adresse und Betreff übergeben.
War schon in dem Archiv bzw. Recherche unterwegs, was ich da gefunden habe hat bei mir nicht so richtig geklappt (liegt warscheinlich an mir!!)
Hoffe wieder auf eure Hilfe.
Im vorraus vielen Dank.
Oswald