Hallo,
diese Zeilen ermöglichen einen Email versand mit Foxpro über Lotus. Ich habe leider nicht geschaft wie ich einen Absendernamen bzw. Absendermailadresse manuel vergeben kann. Lotus nimmt immer beim senden Automatisch den Login Benutzername und Emailadresse. Hier Email versender per Foxpro:
* Test Lotus Notes
**********************************************************
LOCAL loNotes, loDatenbank, loDatensatz
lcEmailAdresse = "email@Test.de"
lcEMailSubject = "Datei Protokoll.xls"
lcEMailMsg = "Anbei die Datei "+CHR(10)+CHR(13)+;
"Protokoll.xls"
lcCurrDir = SYS(5) + SYS(2003)
loNotes = CREATEOBJECT("Notes.NotesSession" )
loDatenbank = loNotes.GetDatabase( '', '' )
loDatenbank.OpenMail()
loDatensatz = loDatenbank.CreateDocument( "NotesDocument", "New",loDatenbank )
loDatensatz.ReplaceItemValue( "Form" , "Memo" )
loDatensatz.ReplaceItemValue( "SendTo" , ALLTRIM(lcEMailAdresse))
loDatensatz.ReplaceItemValue( "Subject", ALLTRIM(lcEMailSubject))
loDatensatz.ReplaceItemValue( "Body" , lcEMailMsg )
local o_attachment
local c_file2attach
c_file2attach = "Z:\Protokoll.xls"
o_attachment = loDatensatz.CREATERICHTEXTITEM("Attachment")
o_attachment.EMBEDOBJECT(1454, "", c_file2attach, "Attachment")
loDatensatz.Send( .T. )
**********************************************************
Ich möchte dass ich Benutzername und Email Adresse manuell vergebe. Über eine Antwort freue ich mich.
Gooz
