FiveTech Support Forums

Sub Emailsenden2()
'
' Emailsenden2 Makro
'
'
 Options.SendMailAttach = True
     ActiveWindow.EnvelopeVisible = True
     With ActiveDocument.MailEnvelope.Item
         .Subject = "Testing 123"
         .Recipients.Add "datron@aon.at"
     End With
End Sub

oWord:=CREATEOBJECT("Word.Application")
oWord:Documents:Add()

oDoc := oWord:ActiveDocument
oWin := oWord:Get( "ActiveWindow" )
oWin:Set( "EnvelopeVisible", .t. )
  oDoc:MailEnvelope:Item:Subject = "Testing 123"
 //oDoc:Recipients:Add = "datxxxxron@axxxx.at"

oDoc:MailEnvelope:Item:Recipients:Add( "datxxxxron@axxxx.at" )