Hilfeeeeeee!!! Mail versenden



Excel-Version: 5.0/7.0
nach unten

Betrifft: Hilfeeeeeee!!! Mail versenden
von: Steffen
Geschrieben am: 18.07.2002 - 14:09:20

Hallo ich brauch heut nochmals Eure Hilfe

Ich hab folgendes MAkro gefunden!

ActiveSheet.Copy

Sub mail()
ActiveWorkbook.SendMail "autohaus@toyota-mittweida.de", "Eine Testmail"
End Sub

Wie kann ich nun noch was in den Body der Mail schreiben

Danke schonmal


Steffen


nach oben   nach unten

Re: Hilfeeeeeee!!! Mail versenden
von: Frederik Fuhrmann
Geschrieben am: 18.07.2002 - 14:21:12

Hallo!

Probiers mal so:

Application.ScreenUpdating = False
Application.DisplayStatusBar = True
bolStatusBar = Application.DisplayStatusBar

Set objOutlook = CreateObject("Outlook.Application")

strRecipient = "autohaus@toyota-mittweida.de"
strFile = "Hallo! Bitte tragen Sie mir die Preise zur Anfragenummer " & AnfrgNr & " in die Datei 'Materialanfragen.xls' ein!"

Application.StatusBar = "Sende Datei " & strFile & " an " & strRecipient
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(strRecipient)
objOutlookRecip.Type = olTo
.Subject = strSubject
.Body = strFile
objOutlookRecip.Resolve
.Send
End With

Set objOutlook = Nothing
Application.StatusBar = False
Application.DisplayStatusBar = bolStatusBar

nach oben   nach unten

Das nützt mir leider nichts
von: Steffen
Geschrieben am: 18.07.2002 - 15:06:25

Denn wir arbeiten mir Netscape

Bitte nochmal Hilfe

Danke Steffen


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hilfeeeeeee!!! Mail versenden"