Domino 9 und frühere Versionen > ND6: Entwicklung

Email aus Access direkt über Domio verschicken?

(1/2) > >>

lokl:
Hallo Leute,

kennt jemand eine Möglichkeit aus Access heraus Emails direkt über den Domino Server zu veschicken?
Ich kenne nur die Möglichkeit über den lokalen Client der auch gestartet sein muß und man muß auch eingeloggt sein. Das ist ziemlich umständlich, wenn die Anwendung von einem SQL-Server aus verschickt werden soll.
Deswegen würde ich gerne irgendwie authentifiziert Emails direkt verschicken können.

Merci für eure Tipps

Axel:
Nur mal so als Idee. Sende aus Access die Mails mit SMTP an den Domino-Server. Mit der DLL vbSendMail kannst du sowas machen. Diese DLL sollte sich auch in Access einbinden lassen.


Axel

lokl:
Danke,

aber ich hatte noch vergessen, das ich das ganze über IMAP und nicht über SMTP schicken müsste.

Axel:
Dann würde ich mal im Web suchen, ob es evt. eine Bibliothek dafür gibt.


Axel

Hive:
eine Idee wäre VBA zu benutzen,

sieht ungefähr so aus. Das Listing unten ist nicht ganz vollständig, und benutzt die UI-Klassen was nicht das performanteste ist und der LN Client muss ebenfalls installiert sein. Aber es geht ja erstmal nur um das Prinzip.


--- Code: ---Sub Email()

Dim Email, Subject As Variant

Dim LNSession As Object
Dim LNWorkspace As Object

Dim LNMailServer As Variant
Dim LNMailDBName As Variant
Dim LNMail As Object
 

'Start von Lotus Notes abfrage vom Mailsserver, Mailfile
'und dem Benutzername
Set LNSession = CreateObject("Notes.NotesSession")
Set LNWorkspace = CreateObject("Notes.NotesUIWorkspace")
LNMailServer = LNSession.GETENVIRONMENTSTRING("MailServer", True)
LNMailDBName = LNSession.GETENVIRONMENTSTRING("MailFile", True)
LNUserName = LNSession.UserName

       
Set LNMail = LNWorkspace.COMPOSEDOCUMENT(LNMailServer, LNMailDBName, "Memo")
Call LNMail.FIELDSETTEXT("Subject", Subject)
Call LNMail.FIELDSETTEXT("EnterSendTo", Email)
Call LNMail.FIELDSETTEXT("EnterCopyTo", CCMail)
Call LNMail.FIELDSETTEXT("Body", Body)

Call LNMail.SEND
Call LNMail.Close(True)


Set LNMailMemo = Nothing
Set LNMailDD = Nothing
Set LNSession = Nothing
End Sub

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite