Discussion :

[cbredeche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

[Jean-Philippe André]

Bonjour,

si tu veux avoir une mise en page de ta feuille aboutie, je te propose de regarder ce code :
http://excel.developpez.com/faq/?pag...geCellulesMail

[cbredeche]

je suis désoler peut être que je me suis mal exprimé

sur ma feuille j'appelle un userform ou utilisateur écrit son message dans le texbox et en cliquant sur envoyer celui ci va direct sur mon mail.
merci de votre aide