Envoyer un mail en utilisant lotus notes server (2nde méthode)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 334 fois - Téléchargée 42 fois

Contenu du snippet


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

A voir également

Ajouter un commentaire

Commentaire

Derrick soft
Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005
-
Il serait bon de dire d'ou vient le code ! Un copier/coller sans citer l'auteur me paraît un peu bizard !

De plus tu aurais pu l'amélioré en mettant la gestion des pièces jointes qui se trouve deux ou trois d'ou tu l'as trouvé.

Derrick

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.