Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Gooz am 19.10.05 - 23:52:28

Titel: Email versenden mit Foxpro.
Beitrag von: Gooz am 19.10.05 - 23:52:28

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

Titel: Re: Email versenden mit Foxpro.
Beitrag von: Glombi am 20.10.05 - 09:01:23

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

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

Andreas