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

 

[James007]

Re : Envoi mail

Bonjour,

Tu pourrais tester le code suivant : (perso, je ne l'ai pas testé ...)

Option Explicit

Sub envoi_mail()
Dim Plage As Range
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Subj = " Liste invités "

Set Plage = Worksheets("Feuil1").Range("G14:G33")
Msg = Plage
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

A +
🙂

 

[gourdin]

Re : Envoi mail

Merci,

J'ai essayé mais celà ne fonctionne pas et indique "Rrreur d'execution 13 - Incompatibilité de type"

 

[James007]

Re : Envoi mail

Re,

Comme Kjin te l'a déjà suggéré ... il existe tellement de configurations différentes ... qu'il te faut trouver celle qui est adaptée à ta situation ...

Par example, tout change en fonction du choix du programme pour envoyer les emails ...

Et le site sur lequel elles sont toutes répertoriées est celui de Ron de Bruin ...

A priori, ce qui correspond le mieux à la description de ton problème est :

Mail Range or Selection with SendMail

A +
🙂

 

[gourdin]

Re : Envoi mail

Merci,

J'ai fait des essais avec les exemples de Ron de Bruin mais celà ne me convient pas vraiment. Peut être aussi parce que je n'arrive pas à me débrouiller avec ses codes.

De plus, je ne souhaite pas de fichier joint mais seulement du texte dans le corps du message qui reprennent le valeurs de quelques cellules excel.

Je ne pensais pas que celà soit si compliqué car mon début de macro très simple (pour outlook) fonctionnait bien mais bloquait au delà d'un certain nombre de caractères dans les cellules.
Je pensais qu'il y avait une petite adaptation à faire sur mon code.

 

[James007]

Re : Envoi mail

Re,

Je ne sais pas vraiment quoi te répondre ...

...mais celà ne me convient pas vraiment...

Tu m'accorderas qu'au delà de la "convenance" ... il y a le code qui fonctionne ...et le code qui ne fonctionne pas ...

Donc c'est vraiment à toi de voir ...

Bon Courage pour la suite ...

A +
🙂

 

[kjin]

Re : Envoi mail

Bonjour, salut James 🙂,
D'autant qu'on ne sait toujours pas la version d'Outlook utilisée, ni celle d'Excel ...
A+
kjin

 

[gourdin]

Re : Envoi mail

Il me semble pourtant que la version excel est affiché sur le forum (2003 en ce qui me concerne)

Par contre Outlook c'est aussi 2003.

Si mon code ne peut pas être adapté, je vais me débrouiller.

Merci pour tout et bonne journée

 

[kjin]

Re : Envoi mail

Re,
As tu bien essayé l'exemple 1
Si oui, peu t-on voir le code
A+
kjin

 

[Compte Supprimé 979]

Re : Envoi mail

Bonjour à tous,
Salut Gourdin

Ci-joint ton fichier avec 2 possibilités : via CDO ou via Outlook

A+ 😉

 

[gourdin]

Re : Envoi mail

Merci,

je vais essayer tout ça un peu plus tard et vous tiens au courant

 

[kjin]

Re : Envoi mail

Re,

je vais essayer tout ça un peu plus tard et vous tiens au courant

Envoies nous un mail 😀
A+
kjin

 

[gourdin]

Re : Envoi mail

Bonjour,

Finalement, je suis parvenu au résultat souhaité avec le code de Ron de Bruin adapté à mes besoins.

Voici donc mon code :

Sub Envoi_Mail_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim Message As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Message = Range("G14") & vbNewLine & Range("G15") & vbNewLine & Range("G16") & vbNewLine & _
Range("G17") & vbNewLine & Range("G18") & vbNewLine & Range("G19") & vbNewLine & _
Range("G20") & vbNewLine & Range("G21") & vbNewLine & Range("G22") & vbNewLine & _
Range("G23") & vbNewLine & Range("G24") & vbNewLine & Range("G25") & vbNewLine & _
Range("G26") & vbNewLine & Range("G27") & vbNewLine & Range("G28") & vbNewLine & _
Range("G29") & vbNewLine & Range("G30") & vbNewLine & Range("G31") & vbNewLine & _
Range("G29") & vbNewLine & Range("G30") & vbNewLine & Range("G31") & vbNewLine & _
Range("G32") & vbNewLine & Range("G33") & vbNewLine

On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = Range("G2")
.Body = Range("G2") & vbNewLine & _
Range("G3") & vbNewLine & _
Range("G4") & vbNewLine & vbNewLine & _
"LISTE :" & vbNewLine & vbNewLine & _
Message

.Display

End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Bonne journée

 

[Compte Supprimé 979]

Re : Envoi mail

Salut Gourdin

Pourquoi ne pas faire ton message avec une boucle plutôt que 3 milliards d'instructions !?

Mais bon

A+

 

[gourdin]

Re : Envoi mail

Tout simplement parce que je ne sais pas faire autrement
et bien sur je suis preneur si tu as un code plus simple

Merci