Envoie email contenu texbox

Résolu/Fermé

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 28 nov. 2016 à 10:06
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 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

A voir également:

Envoie email contenu texbox
Word a trouvé du contenu illisible - Guide
Comment creer un compte email - Guide
Facebook piraté et adresse email changé ✓ - Forum Facebook
Contenu sme - Forum YouTube
Email hotmail - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 nov. 2016 à 14:47

Bonjour,

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

Pas tres clair ........

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
28 nov. 2016 à 15:52

je me reprend

via un bouton sur ma feuille j’appelle un userform dans celui ci l'utilisateur mets un message dans le textbox et de lors qui clic sur envoyer cela le redirige sur mon mail

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
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 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
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

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
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

Bonjour,

mon code erreur a msg.send
Oui, mais lequel

J'ai teste votre code et il marche tres bien !!!!!!!!!!!!

Discussions similaires

compte facebook piraté et adresse email changé

Savoir de quel ville à été envoyé le message

c quoi Email ID

Compte facebook piraté, mail chngé, appareils deconnectés

Facebook invite tout seul !

Discussions similaires

Newsletters