Mailversand: Body of Message anfügen
20.11.2003 11:56:35
Markus
mit
kann man sehr schon aus VBA versenden (wenn es Outlook gibt), aber als Argument bekomme ich nur Empfänger und Betreff hin, nichts im Text (Body of Message).
Wer weiss, wie man da noch was hinzubekommt im Mailtext?
Alternative kann man ja auch so vorgehen, s. Code unten.
Da stört mich aber, dass die Mail einfach so weg geht, ohne das der user send klicken muss:
' Mail ansprechen, verschicken und wieder schliessen
Dim myOutlook As Object
Dim myMailItem As Object
' Make instance
Set myOutlook = CreateObject("Outlook.Application")
' Make mail item
Set myMailItem = myOutlook.CreateItem(0)
' Set recipient (external mail)
myMailItem.Recipients.Add "xxx@dgdgd.de" '
' Set subject
myMailItem.Subject = Betreff
' Set body
myMailItem.Body = ActiveDocument
' Dies fügt das File als Attachment ein
Set Attachs = myMailItem.Attachments
Attachs.Add ActiveDocument.FullName
' Send mail
' KANN MAN HIER AUCH DEN CODE SO LENKEN, dass der User das Mailformular
' sieht, Einträge machen kann und dann SEND klickt?
myMailItem.send
markus