Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Envoi mail

Envoi mail

7 réponses
Avatar
ZiG
Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps maintenant
mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par défaut de
l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un saut de
ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de la
messagerie pour l'envoyer.
Merci

David
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis Michon
Bonjour Zig,

Modifie cette ligne de code :

Msg = Msg & ligne


Par

Msg = Msg & ligne & vbcrlf


Salutations!


"ZiG" a écrit dans le message de news:
Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps maintenant
mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par défaut de
l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un saut de
ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de la
messagerie pour l'envoyer.
Merci

David
Avatar
ZiG
Merci pour ta réponse.

Mais le problème persiste,

est-ce qui faut que je change la plage de cellules aussi
For Each ligne In Range("I3:I24")

Merci !


"Denis Michon" a écrit dans le message de
news:Lkelb.8848$
Bonjour Zig,

Modifie cette ligne de code :

Msg = Msg & ligne


Par

Msg = Msg & ligne & vbcrlf


Salutations!


"ZiG" a écrit dans le message de
news:

Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps maintenant
mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par défaut
de

l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un saut de
ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de la
messagerie pour l'envoyer.
Merci

David





Avatar
Denis Michon
Bonjour Zig,

For Each ligne In Range("I3:I24")
MSG = MSG & ligne & vbCrLf
Next
MsgBox MSG


Salutations!




"ZiG" a écrit dans le message de news:3f9654c8$
Merci pour ta réponse.

Mais le problème persiste,

est-ce qui faut que je change la plage de cellules aussi
For Each ligne In Range("I3:I24")

Merci !


"Denis Michon" a écrit dans le message de
news:Lkelb.8848$
Bonjour Zig,

Modifie cette ligne de code :

Msg = Msg & ligne


Par

Msg = Msg & ligne & vbcrlf


Salutations!


"ZiG" a écrit dans le message de
news:

Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps maintenant
mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par défaut
de

l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un saut de
ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de la
messagerie pour l'envoyer.
Merci

David





Avatar
ZiG
Merci ...
Mais parce qu'il y a toujours un mais ...
ça m'ouvre une message box avant d'envoyer le mail ...
(sur cette message box, l'alignement est OK )
Mais dès que je valide cette message box, mon prgr mail s'ouvre et me met le
body de mon txt tout à la suite en une seule ligne ...

Merci de ton aide
"Denis Michon" a écrit dans le message de
news:vQtlb.9249$
Bonjour Zig,

For Each ligne In Range("I3:I24")
MSG = MSG & ligne & vbCrLf
Next
MsgBox MSG


Salutations!




"ZiG" a écrit dans le message de
news:3f9654c8$

Merci pour ta réponse.

Mais le problème persiste,

est-ce qui faut que je change la plage de cellules aussi
For Each ligne In Range("I3:I24")

Merci !


"Denis Michon" a écrit dans le message de
news:Lkelb.8848$
Bonjour Zig,

Modifie cette ligne de code :

Msg = Msg & ligne


Par

Msg = Msg & ligne & vbcrlf


Salutations!


"ZiG" a écrit dans le message de
news:

Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps maintenant
mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par défaut
de

l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un saut
de


ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de la
messagerie pour l'envoyer.
Merci

David










Avatar
ZiG
Est-ce un problème avec VB
"ZiG" a écrit dans le message de
news:3f966fd8$
Merci ...
Mais parce qu'il y a toujours un mais ...
ça m'ouvre une message box avant d'envoyer le mail ...
(sur cette message box, l'alignement est OK )
Mais dès que je valide cette message box, mon prgr mail s'ouvre et me met
le

body de mon txt tout à la suite en une seule ligne ...

Merci de ton aide
"Denis Michon" a écrit dans le message de
news:vQtlb.9249$
Bonjour Zig,

For Each ligne In Range("I3:I24")
MSG = MSG & ligne & vbCrLf
Next
MsgBox MSG


Salutations!




"ZiG" a écrit dans le message de
news:3f9654c8$

Merci pour ta réponse.

Mais le problème persiste,

est-ce qui faut que je change la plage de cellules aussi
For Each ligne In Range("I3:I24")

Merci !


"Denis Michon" a écrit dans le message de
news:Lkelb.8848$
Bonjour Zig,

Modifie cette ligne de code :

Msg = Msg & ligne


Par

Msg = Msg & ligne & vbcrlf


Salutations!


"ZiG" a écrit dans le message de
news:

Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps
maintenant



mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par
défaut



de
l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un
saut



de
ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de
la



messagerie pour l'envoyer.
Merci

David














Avatar
Denis Michon
Bonjour Zig,

Effectivement, tu as raison...mais je n'en connais pas la raison !

Voici une façon de faire qui fonctionne. Ne remplis les items qui t'intéressent.

L'essentiel de cette procédure fut publiée ici sous la plume de Laurent Longre.

'---------------------------
Sub EnvoyéCourrielAutomatiquemet()

Dim Msg As String

With Worksheets("Feuil1")
For Each ligne In .Range("I3:I24")
Msg = Msg & ligne & vbCrLf
Next
End With

With CreateObject("CDO.Message")
.From = ""
.To = ""
'.CC = ""
.BCC = ""
.Subject = "MySubject"
.TextBody = Msg
'.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
End Sub
'---------------------------


Salutations!




"ZiG" a écrit dans le message de news:3f96780c$
Est-ce un problème avec VB
"ZiG" a écrit dans le message de
news:3f966fd8$
Merci ...
Mais parce qu'il y a toujours un mais ...
ça m'ouvre une message box avant d'envoyer le mail ...
(sur cette message box, l'alignement est OK )
Mais dès que je valide cette message box, mon prgr mail s'ouvre et me met
le

body de mon txt tout à la suite en une seule ligne ...

Merci de ton aide
"Denis Michon" a écrit dans le message de
news:vQtlb.9249$
Bonjour Zig,

For Each ligne In Range("I3:I24")
MSG = MSG & ligne & vbCrLf
Next
MsgBox MSG


Salutations!




"ZiG" a écrit dans le message de
news:3f9654c8$

Merci pour ta réponse.

Mais le problème persiste,

est-ce qui faut que je change la plage de cellules aussi
For Each ligne In Range("I3:I24")

Merci !


"Denis Michon" a écrit dans le message de
news:Lkelb.8848$
Bonjour Zig,

Modifie cette ligne de code :

Msg = Msg & ligne


Par

Msg = Msg & ligne & vbcrlf


Salutations!


"ZiG" a écrit dans le message de
news:

Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps
maintenant



mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par
défaut



de
l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un
saut



de
ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de
la



messagerie pour l'envoyer.
Merci

David














Avatar
ZiG
wouaaaaahhh !

merci ça marche nickel !

c'est exactement ce que je voulais !
Merci bcp Denis ... et à bientôt sur ce forum génial !


"Denis Michon" a écrit dans le message de
news:eBvlb.9257$
Bonjour Zig,

Effectivement, tu as raison...mais je n'en connais pas la raison !

Voici une façon de faire qui fonctionne. Ne remplis les items qui
t'intéressent.


L'essentiel de cette procédure fut publiée ici sous la plume de Laurent
Longre.


'---------------------------
Sub EnvoyéCourrielAutomatiquemet()

Dim Msg As String

With Worksheets("Feuil1")
For Each ligne In .Range("I3:I24")
Msg = Msg & ligne & vbCrLf
Next
End With

With CreateObject("CDO.Message")
.From = ""
.To = ""
'.CC = ""
.BCC = ""
.Subject = "MySubject"
.TextBody = Msg
'.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
End Sub
'---------------------------


Salutations!




"ZiG" a écrit dans le message de
news:3f96780c$

Est-ce un problème avec VB
"ZiG" a écrit dans le message de
news:3f966fd8$
Merci ...
Mais parce qu'il y a toujours un mais ...
ça m'ouvre une message box avant d'envoyer le mail ...
(sur cette message box, l'alignement est OK )
Mais dès que je valide cette message box, mon prgr mail s'ouvre et me
met


le
body de mon txt tout à la suite en une seule ligne ...

Merci de ton aide
"Denis Michon" a écrit dans le message de
news:vQtlb.9249$
Bonjour Zig,

For Each ligne In Range("I3:I24")
MSG = MSG & ligne & vbCrLf
Next
MsgBox MSG


Salutations!




"ZiG" a écrit dans le message de
news:3f9654c8$

Merci pour ta réponse.

Mais le problème persiste,

est-ce qui faut que je change la plage de cellules aussi
For Each ligne In Range("I3:I24")

Merci !


"Denis Michon" a écrit dans le message de
news:Lkelb.8848$
Bonjour Zig,

Modifie cette ligne de code :

Msg = Msg & ligne


Par

Msg = Msg & ligne & vbcrlf


Salutations!


"ZiG" a écrit dans le message de
news:

Bonjour tout le monde,

je feuillette ce forum ainsi que les archives depuis qq temps
maintenant



mais je ne trouve pas mon bohneur.

je dois envoyer une feuille XL dans le body du mail

Je m'explique, j'utilse XL2002 et veux utiliser le progr mail par
défaut



de
l'ordi utilisé.
J'ai un code pris sur le forum qui fonctionne bien mais me
met mon texte à la suite sans tenir compte de mes saut de ligne.
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
For Each ligne In Range("I3:I24")
Msg = Msg & ligne
Next
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

J'aimerai que chaque cellule comprise entre I3 et I24 comprenne un
saut



de
ligne.


Merci beaucoup pour votre aide
et si possible de pas avoir besoin de valider le bouton "envoyer" de
la



messagerie pour l'envoyer.
Merci

David