an e-mail empfänger senden!

[Tobe]

Sub senden()

Documents("word.doc").HasRoutingSlip = True

With Documents("word.doc").RoutingSlip

.Subject = "word.doc"

.AddRecipient Recipient:="e-mail add"

.Message = "nachricht..."

.Delivery = wdOneAfterAnother

End With

Documents("word.doc").Route

End Sub

Hi,

meine Frage ist nun! wenn ich ein Makro hab so wie es oben steht und ich dies dann ausführe, dann sendet er mir die e-mail zu meinem postfach und net zu der anderen e-mail add.

Und wie bekomme ich bei .Message ein Text hinein der über mehrere Zeilen geht?

[TheyCallMeGeek]

mit vbNewline oder \r\n <- zeilenumbruch halt