mailversand in word über vba
12.04.2005 15:40:03
safe007
mfg
s.feher
Private Sub CommandButton1_Click()
With ActiveDocument
With .Mailer
.Subject = "Hier ist das Dokument"
.ToRecipients = Array("Sieglinde")
.CCRecipients = Array("Adam", "Bernard")
.BCCRecipients = Array("Chris")
.Enclosures = Array("TestDatei")
End With
.SendMailer
End Sub