Fonction à inclure dans un projet - utilise les objets Lotus Domino pour envoyer un mail tout simple (param : destinataire, sujet, contenu du mail)
Source / Exemple :
' Faire une liaison vers les objets "Lotus Domino Objects"
' ex d'utilisation :
' SendNotesMail("drouzig@free.fr", False, "Joli sujet", "Ceci est le texte de mon mail !")
Public Sub SendNotesMail(Recipient As String, SaveIt As Boolean, Optional Subject As String, Optional BodyText As String)
' Initialisation des objets
Dim domSession As New Domino.NotesSession
Dim domDatabase As New Domino.NotesDatabase
Dim domDocument As NotesDocument
Dim strMailDbName As String
On Error GoTo End_Error
' Initialisation de la session Notes - utilisez votre password dans le cas d'un fichier ID protégé
' Le paramètre est à supprimer dans le cas contraire
domSession.Initialize ("********")
' Le chemin est soit relatif si la base est sur le serveur, soit absolu si elle est en local
strMailDbName = "U:\Lotus\Notes\Data\base.nsf"
' Récupération de la base de courrier en fonction du nom
Set domDatabase = domSession.GetDatabase(domSession.ServerName, strMailDbName, False)
' Ouverture de la base si un client ne l'a pas déjà fait
If Not domDatabase.IsOpen = True Then
domDatabase.Open
End If
' Création du mail à envoyer
Set domDocument = domDatabase.CreateDocument
' Définition du type de document
domDocument.AppendItemValue "Form", "Memo"
' Définition du sujet
domDocument.AppendItemValue "Subject", Subject
' Définition du corps du mail
domDocument.AppendItemValue "Body", BodyText
' Définition de la date d'envoi
domDocument.AppendItemValue "PostedDate", Now()
' Sauvegarde ou non du mail à l'envoi
domDocument.SaveMessageOnSend = SaveIt
' Envoi du mail
' Attention, Recipient doit toujours être renseigné sous peine d'exception
domDocument.Send 0, Recipient
' Libération des objets
Set domDocument = Nothing
Set domDatabase = Nothing
Set domSession = Nothing
Exit Sub
End_Error:
' Traitement éventuel de l'exception
MsgBox ("Erreur : " & Err.Number & "; " & Err.Description)
End Sub
Conclusion :
Commentaires bienvenus, bien sûr.
Merci à tous ceux qui contribuent, ça aide de temps à autres ;)
Drouzig Chat
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.