With Ol_Item
'adresse mail
.To = Me.zt_a.Value
'sujet
.Subject = Me.zt_sujet.Value
'corps du mail
If IsNull(zt_corps) = False Then
.Body = Me.zt_corps.Value
End If
'piece jointe
.Attachments.Add Cdir & "\" & Me.id_devis.Value & ".pdf"
'enregistrement
.Save
'envoie
.send
Kill Cdir & "\" & Me.id_devis.Value & ".pdf"
End With
MsgBox "message envoyé"
Else
MsgBox "saisir une adresse mail", vbInformation
End If
Else
MsgBox "entrez d'abord des informations", vbInformation
End If
Ce code marche pour certains formulaires mais pas pour tous. En effet, sur certains formulaires, j'ai un probleme dans le outputto, plus précisement au niveau du chemin ou je souhaite stocker mon état.
Est ce que quelqu'un à une idée de mon prblème ou éventuellement une autre solution