alors voici le code que j'utilise :
- Code : Tout sélectionner
Sub sendNotifHtml(s As notessession, db As NotesDatabase, sSujet As String, sCorp As String, sTo As String, sCopyTo As String, sBlindCopyTo As String)
Dim docMem As notesdocument
Dim stream As NotesStream
Dim header As NotesMIMEHeader
Dim body As NotesMIMEEntity
On Error Goto erreur
Set docMem = New NotesDocument(db)
'pour l'envoie de mail format html
Set stream = s.CreateStream
s.ConvertMIME = False ' Do not convert MIME to rich text
Set body = docMem.CreateMIMEEntity
Set header = body.CreateHeader("Subject")
Call header.SetHeaderVal(sSujet)
Set header = body.CreateHeader("To")
Call header.SetHeaderVal(sTo)
If sCopyTo <> "" Then
Set header = body.CreateHeader("CopyTo")
Call header.SetHeaderVal(sCopyTo)
End If
If sBlindCopyTo <> "" Then
Set header = body.CreateHeader("BlindCopyTo")
Call header.SetHeaderVal(sBlindCopyTo)
End If
Call stream.writetext(|<HTML>|)
Call stream.writetext(|<body>|)
'Forall v In
Call stream.writetext(sCorp)
'End Forall
Call stream.writetext(|</body>|)
Call stream.writetext(|</html>|)
Call body.SetContentFromText(stream, "text/HTML;charset=UTF-8", ENC_IDENTITY_8BIT)
Call docMem.Send(False)
s.ConvertMIME = True ' Restore conversion - very important
Exit Sub
erreur:
Error 10000, "sendNotifHtml("+Cstr(Erl) +" " + Error +")"
End Sub
la méthode est appelée de la sorte :
- Code : Tout sélectionner
Call sendNotifHtml(s, db, docParamR.getfirstitem("PRM_NotifObjet").text, docParamR.getfirstitem("PRM_NotifContenu").text, docCurrentCVP),nBal1.Canonical + ", " +nBal2.Canonical, "", "")
le corp et le sujet sont issus d'un document de paramétrage et comportent du code HTML. Pour eux le problème des accents est résolu avec :
- Code : Tout sélectionner
Call body.SetContentFromText(stream, "text/HTML;charset=UTF-8", ENC_IDENTITY_8BIT)
les notesname sont construits comme ceci :
- Code : Tout sélectionner
Set nBal1 = New NotesName(docCur.GetItemValue("INS_Dest1")(0))
Set nBal1 = New NotesName(docCur.GetItemValue("INS_Dest2")(0))
Impossible d'envoyer le courrier à CN=J‚r‚my XXXX/O=YYYY car ses coordonnées sont introuvables dans le ou les carnets d'adresses.
11:09:12 ERREUR: Erreur N° 10000 en ligne 129 => sendNotifHtml(38 Unable to send mail, no match found in Name & Address Book(s))
le destinataire est en faite :
CN=Jérémy XXXX/O=YYYY
Les destinataires sont alimenté à la base via le carnet d'adresse donc c'est certain ils existent
suite à ceci j'ai donc testé la classe smartmail mentionné plus haut et j'obtiens les même erreurs :'(
Merci d'avance et désolé pour le mauvais postage !