Domino 9 und frühere Versionen > Entwicklung

Email versenden mit Foxpro.

(1/1)

Gooz:
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

Glombi:
Sieh Dir diesen Thread dazu an - insb.den Link von eknori

http://www.atnotes.de/index.php?topic=15763.0

Andreas

Navigation

[0] Themen-Index