Envoi mail

[gourdin]

Bonjour,

Après nombreux tatonnements et essai avec des macros du forum et compte tenu de mon niveau j'ai opté pour un code le plus simple possible pour envoyer mail par outlook.
Le message retranscrit une succession de lignes d'un tableau.

Le code est à peu près celui ci :

Sub envoi_mail()
Dim Adresse As Range
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Subj = " Bonjour "
Msg = Range("G14") & "%0a" & Range("G15") & "%0a" & Range("G16") & "%0a" 
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Celà fonctionne bien si il n'y pas trop de caractères dans les cellule G14, G15, G16 etc.. car sinon un message d'erreur apparait du type "Erreur d'execution 5 - Argument ou appel de procédure incorrect"

Il y a t-il un moyen pour eviter celà tout en gardant la simplicité à la macro ?

Voir fichier joint

Merci

 

[Compte Supprimé 979]

Re : Envoi mail

Re,

Oui le code t'a été donné dans le fichier précédent
il faut juste prendre le temps d'étudier ce que l'on te donne

A1C4

 

[gourdin]

Re : Envoi mail

Merci

mais je ne suis pas assez costaud en excel pour savoir comment fonctionne la boucle en question dans ton précédent message.
Bonne soirée