Microsoft 365 VBA Envoi un email à l'user

[Pom909]

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 :

  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 !

 

[fanch55]

Bonsoir,
A tester :

Sub Test()
    Set MonOutlook = CreateObject("Outlook.Application")
        With MonOutlook.createitem(0)
            Email_Address = "j.dupont"
            If .Recipients.Add(Email_Address).Resolve Then
                .Subject = "Suivi dysfonctionnement n° " & 5
                .body = "La fiche de dysfonctionnement a été modifiée par le service Qualité." & vbLf & vblf
                .body = .body & "Numéro du dysfonctionnement : " & 10 & vbLf
                .display
            Else
                MsgBox Email_Address & " non trouvé dans le carnet"
            End If
        End With
    Set MonOutlook = Nothing
End Sub

 

[Pom909]

Bonjour fanch55,

Merci pour ta réponse.
Je vois dans ton code que tu as inséré "j.dupont" néanmoins ce susername n'éxiste pas, c'est juste le format du username. La donnée réelle est variable selon qui a créé la fiche. C'est pourquoi j'aurai aimé que le code prenne en compte la valeur de la "TextBox13" qui contient l'username.
Je ne sais pas si je suis suffisamment précise ?

 

[fanch55]

Salut,
Au lieu de mettre "j.dupont", tu mets Textbox13.text ... 😉 ou ce que tu veux ..

 

[Pom909]

Effectivement ... Pourquoi chercher compliqué quand on peut faire simple.

Merci pour ton aide !