un truc que je m'explique pas bien, j'ai un bout de code qui NE tourne sans soucis QU'en debug / pas à pas.... ?!!!??
Si je quitte le mode debug..... mon champ body est vide !!!!
voila la partie qui pose probleme:
- Code : Tout sélectionner
[....]
'Préparation du mail
Call dbM.OpenMail
Set Mail= dbM.CreateDocument
Mail.Form = "Memo"
Mail.subject = "[Decomissionnement ]: ACL_Groupe à supprimer]"
Mail.SendTo= curDocProfile.ArchiveMailGrp
Dim BodyTxt As String
Dim itmBody As NotesRichTextItem
BodyTxt = "Suite au decomissionnement de la base : " & curdoc.Title(0) & Chr(13) &_
" vous pouvez supprimer les groupes suivants : " & Chr(13)
Set itmBody =Mail.GetFirstItem("Body")
If itmBody Is Nothing Then
Set itmBody = New NotesRichTextItem( Mail, "Body" )
End If
Call itmBody.AddNewline (2)
Call itmBody.AppendText (BodyTxt)
Dim LstGrp As Variant
LstGrp = curdoc.GetItemValue("GrpToDelete")
Forall grp In LstGrp
Call itmBody.AddNewline (1)
Call itmBody.AppendText ("- " & grp)
End Forall
Set uiMail = w.EditDocument(True, Mail, False,,False)
[...]
... à noter que le problème ne se pose que pour mon champ body... sujet, et sendto c'est nickel.
