Source / Exemple :
'Sending Emails using Lotus Notes Server
'Open a Standard EXE Form
'Make a reference to Lotus Domino Type Library
'Place a code below in the click event of command button
Dim m_Session As New Domino.NotesSession
Dim m_Database As New Domino.NotesDatabase
Dim m_TempDB As New Domino.NotesDatabase
Dim m_doc As New Domino.NotesDocument
Dim m_dir As New Domino.NotesDbDirectory
m_Session.Initialize "Enter you Lotus Note Email access password"
Set m_dir = m_Session.GetDbDirectory("Server Name")
Set m_TempDB = m_dir.OpenMailDatabase
Set m_Database = m_Session.GetDatabase("Server Name", "Mail\" & m_TempDB.FileName)
If m_Database.IsOpen Then
Set m_doc = m_Database.CreateDocument()
m_doc.AppendItemValue "SendTo", "Email ID of Recepient"
m_doc.AppendItemValue "Subject", "Subject of mail"
m_doc.AppendItemValue "Body", "Message to be send"
m_doc.Send False
End if
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.