XL 2010 envoie email texbox

[bredeche]

bonjour
via un bouton j’appelle mon userform suite au contenu dans un texbox rentre dans le message de l'email je veux via le bouton envoyer que cela envoie a mon adresse
pouvez vous m'aider

Sub envoimail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = TextBox1.Value
C_Cachee = Range("A1")
Subj = "ENVOI MAIL VIA TEXTBOX : "
Msg = Msg & "Bonjour " & ",%0D%0A %0D%0A"
Msg = Msg & " VOICI LE MAIL VIA TEXTBOX " & "%0D%0A %0D%0A"
Msg = Msg & "Cordialement," & "%0D%0A" & "Et1000lio" & "%0D%0A" & "Nom Entreprise" & "%0D%0A" & "Adesse 1" & "%0D%0A" & "Adresse 2" & "%0D%0A" & "Tel. O2 00 00 00 00" & "%0D%0A"" & ""%0D%0A"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & "&Cc=" & "&Bcc=" & C_Cachee
ActiveWorkbook.FollowHyperlink Address:=URLto
Range("A1").Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "" 'email'
End Sub

 

[Lone-wolf]

Bonjour bredeche

il faut mettre un bouton dans l'usf, et dans celui-ci tu met la macro. Si c'est toujours toi qui envoie l'email, dans userfom_initialize, tu met textbox1 = "ton adresse email".

Private Sub CommandButton1_Click()
Dim MailAd As String, Msg As String
Dim Subj As String, URLto As String
Dim esp(1 To 2) As String, C_Cachee As String

  MailAd = TextBox1
  C_Cachee = Feuil1.Range("a1")
  Subj = "ENVOI MAIL VIA TEXTBOX :"
  esp(1) = "%0D%0A %0D%0A": esp(2) = "%0D%0A %0D%0A %0D%0A"
 
  Msg = Msg & "Bonjour" & esp(2) & _
  "VOICI LE MAIL VIA TEXTBOX " & esp(1) & _
  "Envoyé par: Tonton Charles" & esp(2) & _
  "MAILTEXT" & esp(1) & _
  "Adesse 1" & esp(1) & _
  "Adresse 2" & esp(1) & _
  "Tel. O2 00 00 00 00" & esp(2) & _
  "Cordialement" & esp(1) & _
  "TATA ROSETTE"

 
  URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & "&Cc=" & " " & "&Bcc=" & C_Cachee
  ActiveWorkbook.FollowHyperlink Address:=URLto
  Unload Me
End Sub

 

[bredeche]

merci je pense que je me suis mal exprimer le code de ci dessus fonctionne mais le message qui est dans mon textbox ne s'affiche pas
le plus simple il serait que la personne écrit son message dans le textbox et cela envoie directement dans le mail "programme en vba" sans ouvrir la fenêtre outlook
merci

 

[Lone-wolf]

Re

Il y a une erreur dans URL de ton code, regarde bien. Tout est repris par outllook avec le code que j'ai corrigé.

EDIT: Si le message est la textbox1, pourquoi avoir mit MailAd = TextBox1???. Dans ce cas si MAILTEXT est le texte de la textbox, il faut remplacer par

Msg = Msg & "Bonjour" & esp(2) & _
"VOICI LE MAIL VIA TEXTBOX " & esp(1) & _
"Envoyé par: Tonton Charles" & esp(2) & _
TextBox1.Text & esp(1) & _