Mailversand aus Word

ActiveDocument.Route, ActiveDocument.SendMail
Auf einem Word-Dokument befindet sich ein Button ‘Senden’. Auf Knopfdruck soll das Dokument
per E-Mail verschickt werden. Der Code dazu lautet normal: ActiveDocument.SendMail.
Outlook öffnet sich, und das Word-Dokument wird als Anhang in die Mail eingefügt.
Bei der unten stehenden Lösung werden ‘Subjekt’ und ‘Empfänger’ als Parameter in die Mail übergeben,
wenn die Empfänger immer gleich sind:
Sub MailWordByOutlook()
ActiveDocument.HasRoutingSlip = True
  With ActiveDocument.RoutingSlip
   .Subject = "Test"
   .AddRecipient "first-address@mail.com"
   .AddRecipient "second-address@mail.com"
   .Delivery = wdAllAtOnce
  End With
ActiveDocument.Route
End Sub



 Ranking-Hits zurück Sitemap
Designed by www.wbrnet.info