AdresseMailDansUserForm

[Moa]

Bonjour à tous

Même question que pour une adresse internet.

Dans un userform, j'ai mis une adresse mail, et j'aimerais afficher la boîte de dialogue traditionnel, et donc pouvoir envoyer un mail directement.

Si cela est possible aussi, Merci d'avance

@ +

Moa

 

[@Christophe@]

Bonour Moa, bonjour forum

Je crois tu vas trouver ta réponse sur ce fil


Lire le fil et télécharger le fichier et analyser

<http://www.excel-downloads.com/html/French/forum/messages/1_14193_14193.htm>

Voila,

A bientot

Christophe

 

[Moa]

En fait, voilà la petite macro, que j'ai repiquée.


Private Sub label6_Click
ActiveWorkbook.SendMail Recipients:="rbnchris@wanadoo.fr", Subject:="Ceci est un test"
MsgBox "Envoyé"
End Sub

Mon problème, est que je ne peux pas choisir le message a envoyer.

Donc en fait, ma vraie question, c'est que faut-il rajouter, ou changer pour que l'utilisateur, puisse écrire, librement.

Merci

@ +

Moa

 

[Moa]

Voilà, j'ai trouvé la solution


Private Sub Label6_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = "rbnchris@wanadoo.fr"
Subj = "LogFoot2002-2003"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Cela marche très bien.

Par contre, j'ai du enlevé le message, qui dit que le mail a été envoyé, car celui-ci, s'affichait, trop tôt.

Si qqn a une idée, sur ce petit prob, ce serait sympa.

Merci

@ +

Moa

 

[Ti]

utilise FollowHyperlink plutôt :

Private Sub label6_Click()
Dim Adresse As String, Sujet As String, Message As String

Adresse = "rbnchris@wanadoo.fr"
Sujet = "Test"

Message = "je fais un test"
'tu peux mettre Message = textbox1.text

ActiveWorkbook.FollowHyperlink "mailto:" & Adresse & "?subject=" & Sujet _
& "&Body=" & Message
MsgBox "Envoyé"
End Sub

 

[Moa]

Merci beaucoup Ti

Mais le message "message envoyé", s'affiche trop tôt.C'était justement l'objet de ma question, car c'était le code que j'avais enlevé.

De plus, si je met la formule Message = Textbox1.text, excel me met un message d'érreur et me renvoie au débbuggeur.

Sinon, j'ai supprimé la partie Message, ça marche bien.

Ceci dit, je ne voyais pas trop la différence, entre ta formule (plus française), et la "mienne".

Merci @ +

Moa

 

[Ti]

c'est juste que nos messages se sont croisés ! je regarderai mieux ce soir...

 

[Moa]

hihihi....lol

@ +

Moa

 

[pat5]

Salut Moa

De John Walkenbach

Salut ;o)

 

[Moa]

Merci à toi Pat5, j'espère que je n'aurai pas de prob avec la White House...

Je garde cet exemple sous le coude.

@ +

Moa

 

[Mytå]

Salut les excelliens

Oups Bill ma repondu lol

sa réponse ))

Who are you ?

Merci Pat5

 

[Moa]

Oui, mais PAS MERCI pour moi...ne lancez pas surtout pas ce prog

Depuis ma Bal est bloquée, et j'ai déjà reçu une centaine de fois le même message de chez Bill

Je ne peux rien y faire, c'est agaçant.

Si qqn a eu le même problème, j'aimerais bien me défaire de ce prob.

Merci beaucoup

@ +

Moa

 

[Moa]

Bon, voilà, j'ai du passer par mon fournisseur d'accès (wanadoo), je leur ai fait un mail et j'ai du aller sur le site, et faire du nettoyage.

Depuis cinq minutes, je n'ai rien reçu, çà a l'air aller maintenant.

@ +

Moa

 

[@+Thierry]

Bonsoir


Mais c'était sérieux Moa ???

Je croyais que tu blaguais avec cette histoire !

?
@+Thierry

 

[Moa]

Oui, c'était vraiment du sérieux, j'espère que tu n'as pas voulu vérifier l'info.

@ +

Moa