Menu

Envoie email contenu texbox [Résolu/Fermé]

cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention - 28 nov. 2016 à 10:06 - Dernière réponse : cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention
- 29 nov. 2016 à 12:56
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
Afficher la suite 

7 réponses

f894009 12957 Messages postés dimanche 25 novembre 2007Date d'inscription 24 avril 2018 Dernière intervention - 28 nov. 2016 à 14:47
0
Utile
6
Bonjour,

message de l'email je veux via le bouton envoyer que cela envoie a mon adresse

Pas tres clair ........
f894009 12957 Messages postés dimanche 25 novembre 2007Date d'inscription 24 avril 2018 Dernière intervention > cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention - 28 nov. 2016 à 18:35
Re,

Et cette userform, elle existe ou pas ??

redirige sur mon mail
Non, sur votre messagerie via votre adresse @Mail
cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention > f894009 12957 Messages postés dimanche 25 novembre 2007Date d'inscription 24 avril 2018 Dernière intervention - 28 nov. 2016 à 20:52
Private Sub b_envoi_Click()
If Me.Nom = "" Then
MsgBox "Saisissez votre nom!"
Me.Nom.SetFocus
Exit Sub
End If
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = "cedric.bredeche@eiffage.com"
msg.Subject = "contact"
msg.Body = Me.Nom & vbLf & vbLf & Me.Message
msg.Send
End Sub

mon code erreur a msg.send
cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention - 28 nov. 2016 à 19:11
mon useform existe
les éléments dans le textbox que l'utilisateur aura saisi sera envoyer sur mon adresse mail via le bouton envoyer dans l'userform
merci par avance
f894009 12957 Messages postés dimanche 25 novembre 2007Date d'inscription 24 avril 2018 Dernière intervention > cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention - 29 nov. 2016 à 07:25
Bonjour,

mon code erreur a msg.send
Oui, mais lequel

J'ai teste votre code et il marche tres bien !!!!!!!!!!!!
cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention - 29 nov. 2016 à 12:56
OK j'ai réveiller ce est bon