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
1 réponse
-
Bonjour,
message de l'email je veux via le bouton envoyer que cela envoie a mon adresse
Pas tres clair ........-
-
-
-
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 -
-
