1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Sub EnvoieMessageNotes(ByVal p_sAdresseUser As String, ByVal p_sSujetMessage As String, ByVal p_sBody As Variant)
Dim l_oSession As Object
Dim l_oDB As Object
Dim l_oMessage As Object
Dim l_oItemRT As Object
On Error GoTo TraiteErreur
'Création des instances
'ne pas utiliser le mot clé New (non reconnu pour les objets LN)
Set l_oSession = CreateObject("Notes.NotesSession")
Set l_oDB = l_oSession.GETDATABASE(g_sNomServeurLotus, g_sNomBaseLotus)
Set l_oMessage = l_oDB.CREATEDOCUMENT
l_oMessage.Form = "Memo"
l_oMessage.Sendto = p_sAdresseUser
l_oMessage.Subject = p_sSujetMessage
Set l_oItemRT = l_oMessage.CREATERICHTEXTITEM("Body")
Call l_oItemRT.APPENDTEXT(p_sBody)
Call l_oMessage.SEND(False)
Set l_oItemRT = Nothing
Set l_oMessage = Nothing
Set l_oDB = Nothing
Set l_oSession = Nothing
Exit Sub
TraiteErreur:
ContenuMessage "Global : Erreur lors de l'envoie d'un message!", True
LogEcrire g_sMessage
End
End Sub |
Partager