Userform pour envoyer un mail
V
Hello tout le monde,
Voilà j'ai crée un petit formulaire afin de remplir automatiquement un mail et l'envoyer dans la foulée avec un petit message de confirmation
Le userform se lance, je rempli, je clique et plus rien, pas de message d'erreur et pas de mail qui s'envoi,
Je vois pas ce qui cloche.
D'avance merci pour votre aide
Bonjour Vinno,
à tester
Private Sub CommandButton1_Click()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim corps As String
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
corps = "Bonjour ,"
corps = corps & Chr(13) & Chr(10)
corps = corps & "agent : " & UserForm1.TextBox1.Value & Chr(13) & Chr(10)
corps = corps & "Analyse : " & UserForm1.TextBox3.Value & Chr(13) & Chr(10)
corps = corps & Chr(13) & Chr(10)
corps = corps & "Merci de votre aide."
With OutlookMail
.To = "adressemail@youpi.com"
.Subject = "DEMANDE ANNULATION " & TextBox2.Value
.body = corps
.Display 'or Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
MsgBox ("Demande envoyée !")
End SubCordialement