Code qui ne tourne qu'en Pas à pas....
Hello
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:
... à noter que le problème ne se pose que pour mon champ body... sujet, et sendto c'est nickel.
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.