title image


Smiley Re: Versenden der Datei per E-Mail (Schaltfläche)
Hallo 123Nadine,



als Ansatz vielleicht mal dieses:







Sub SendDocByMail()

    ActiveDocument.HasRoutingSlip = True

    ActiveDocument.RoutingSlip.AddRecipient Recipient:="account@domain.de"

    With ActiveDocument

        With .RoutingSlip

            .Protect = wdNoProtection

            .Subject = "Der Betreffzeilen-Text"

            .Message = "Hier kommt der Text in der Mail"

            .Delivery = wdOneAfterAnother

            .ReturnWhenDone = True

            .TrackStatus = False

        End With

        .Route

    End With

End Sub



Code eingefügt mit Syntaxhighlighter 2.5








-------------------------------------------
"Nobody will ever need more than 640k RAM!"
1981 Bill Gates




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: