VBA envoie automatique de mail

bonjour, j'ai un problème car j'ai repris le code d'un topic de ce forum pour envoyer un email automatique mais ça ne fonctionne pas. Je crée un userform pour créer un compte utilisateur et je veux qu'automatiquement un mail avec les identifiants soit envoyé mais ça ne fonctionne pas, je ne reçois rien. Pourtant quand je rajoute .display pour vérifier le mail est correctement remplis. Auriez vous une solution?

voici le code quand on clique sur le bouton de l'userform

Private Sub creationcompte_Click()

Dim user As String
Dim mdp As String
Dim confirmation As String
Dim mail As Variant
Dim email As String
Dim sendmail As Outlook.Application

Set sendmail = New Outlook.Application
Set mail = sendmail.CreateItem(olMailItem)

user = Me.textuser
mdp = Me.textmdp
confirmation = Me.textconf
email = Me.Textemail

If mdp = "" Or user = "" Or confirmation = "" Or email = "" Then

    Me.msgerreur.Visible = True
    Me.msgerreur.Caption = "Veuillez remplir toutes les informations"

ElseIf mdp <> confirmation Then

    Me.msgerreur.Visible = True
    Me.msgerreur.Caption = "Vous n'avez pas saisi le même mot de passe"

Else
    If MsgBox("Confirmez la création du compte", vbYesNo, "confirmation") = vbYes Then

        If Range("user").Offset(1).Value = "" Then

            Range("user").Offset(1).Value = user
            Range("user").Offset(1, 1).Value = mdp
            Range("user").Offset(1, 2).Value = email
            MsgBox ("compte créé")

        Else

            Range("user").End(xlDown).Offset(1).Value = user
            Range("user").End(xlDown).Offset(0, 1).Value = mdp
            Range("user").End(xlDown).Offset(0, 2).Value = email
            MsgBox ("compte créé")

        End If

    Else

        Unload Me

    End If

End If

With mail
        .To = email ' le destinataire
       .Subject = "Merci d'avoir créé votre compte"          ' l'objet du mail
       .Body = " Merci pour votre inscription, veuillez trouvez ci-dessous vos identifiants de connexion " & Chr(10) & " nom d'utilisateur: " & user & _
                Chr(10) & "mot de passe: " & mdp 'le corps du mail ..son contenu
       .Send
    End With
    sendmail.Quit
    Set mail = Nothing
    Set sendmail = Nothing

Unload Me

MsgBox ("Merci de votre inscription, vous recevrez un email dans quelques minutes")
End Sub

bonjour

vérifie le contenu de ta variable email

Le problème ne vient pas de là, j'ai trouvé où ça bloque.

J'ai créé une adresse de messagerie outlook pour l'envoie des mails sauf qu'il bloque l'envoie des mail car il pense que je suis un spammeur du coup il me demande a chaque fois que je me connecte de montrer que je ne suis pas un robot. Comment faire avec ce problème?

merci

Bonjour

Auriez vous une capture du blocage mail ou il pense que vous êtes un spammeur.

Car en local sur u ordinateur je ne vois pas ce qui bloquerait.

Cdt,

voila les captures écran. c'est la 3ème fois que ça me fait ça

Je ne sais pas si Outlook etait le type d'adresse à prendre.

Privilégiez une boite mail de votre hébergeur ( free sfr ... ) .

Cdt,

ok ça marche merci pour l'aide je vais regarder ça et je vous tiens au courant. en tous cas le code marche et ça c'est déjà pas mal ^^