Envoie email contenu texbox

Résolu

cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
cedric0715 Messages postés 210 Date d'inscription Statut Membre 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

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
Facebook piraté et adresse email changé - Guide
Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention

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 Statut Membre Dernière intervention

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 Statut Membre Dernière intervention > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention

Bonjour,

mon code erreur a msg.send
Oui, mais lequel

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

Discussions similaires

Contenue masqué

ca veut dire quoi wmg sur youtube ?

Envoie impossible messenger

Echec d'envoi message sur Messenger

Facebook - "Désolé, ce contenu n’est pas disponible..." et autre probl

Votre réponse

Discussions similaires