Bonjour à tous,
C'est probablement une question bête mais je ne trouve pas de solution et étant débutante, je reste bloquée.
Mon userform (Qualite) fonctionne en deux parties :
- Une remplie par un user variable qui créé une "fiche de dysfonctionnement".
- Et la seconde, renseignée par moi même, qui complète la fiche.
Lors de la saisie de cette seconde partie, je cherche à ce qu'un mail soit envoyé à l'user qui a créé la fiche (son username est reprit automatiquement dans la TextBox13)
L'user dans la TextBox13 se présente comme ceci par exemple "j.dupont".
Ainsi ma problématique est qu'il manque le nom de domaine "@gmail.com" par exemple, pour que l'email soit complet.
Je vous met l'extrait en question de mon code :
Merci d'avance !
C'est probablement une question bête mais je ne trouve pas de solution et étant débutante, je reste bloquée.
Mon userform (Qualite) fonctionne en deux parties :
- Une remplie par un user variable qui créé une "fiche de dysfonctionnement".
- Et la seconde, renseignée par moi même, qui complète la fiche.
Lors de la saisie de cette seconde partie, je cherche à ce qu'un mail soit envoyé à l'user qui a créé la fiche (son username est reprit automatiquement dans la TextBox13)
L'user dans la TextBox13 se présente comme ceci par exemple "j.dupont".
Ainsi ma problématique est qu'il manque le nom de domaine "@gmail.com" par exemple, pour que l'email soit complet.
Je vous met l'extrait en question de mon code :
VB:
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "XXXXX@gmail.com"
MonMessage.Subject = "Suivi dysfonctionnement n° " & Qualite.TextBox12.Value
corps = "La fiche de dysfonctionnement a été modifiée par le service Qualité." & Chr(13) & Chr(10)
corps = corps & Chr(13) & Chr(10)
corps = corps & "Numéro du dysfonctionnement : " & Qualite.TextBox12.Value & Chr(13) & Chr(10)Merci d'avance !