Envoie email contenu texbox
Résolu
cedric0715
Messages postés
265
Statut
Membre
-
cedric0715 Messages postés 265 Statut Membre -
cedric0715 Messages postés 265 Statut Membre -
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
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
- Comment creer un compte email - Guide
- Word a trouvé du contenu illisible - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide
- Mon email ✓ - Forum Mail
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
Et cette userform, elle existe ou pas ??
redirige sur mon mail
Non, sur votre messagerie via votre adresse @Mail
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
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
mon code erreur a msg.send
Oui, mais lequel
J'ai teste votre code et il marche tres bien !!!!!!!!!!!!