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 par Email

Envoi par Email

21 réponses
Avatar
GD_NXT
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer le fichier actif par
Email en tant que fichier joint.



ActiveWorkbook.SendMail Recipients:="NomDestinataire",
Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire pour mettre un
destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
papou
Bonjour
C'était avec plaisir ;-)

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)


:-))))))))

Cordialement
Pascal

"le_g0eland" a écrit dans le message
de news:07b301c47aec$8106e600$

Super Papou !!!
ça marche impec

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)

V
le_g0eland

-----Message d'origine-----
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
..Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire
pour




mettre un
destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.




.






Avatar
jps
ach! merdum de merdum...j'étais persuadé que l'adresse écrite par papou
était bidon
désolé GDNxt....tu peux jeter le fichier des anciens combattants 14-18 du
beaujolais
jps
PS1 quant à papou, ça lui a permis de faire d'un scud deux coups, le félon!
PS2 dis-moi, papou, tant que je te tiens : peux tu me dire pourquoi dans la
proc de FS pour OE vers qui tu m'as dirigé si aimablement, le , 3" (tu vois
où c'est?) qui doit correspondre à une des options focus, pourquoi,
disais-je, celui fait finalement partie du corps de l'émile, et ce, juste à
la fin du texte? merci pour lui

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:OVO2%
Bonjour
C'était avec plaisir ;-)

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)


:-))))))))

Cordialement
Pascal

"le_g0eland" a écrit dans le message
de news:07b301c47aec$8106e600$

Super Papou !!!
ça marche impec

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)

V
le_g0eland

-----Message d'origine-----
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
..Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire
pour




mettre un
destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.




.










Avatar
Papou
JP
Pour le PS1, je rectifie, il ne s'agissait pas d'un scud mais d'une histoire
rigolote ;-)
Pour le PS2, sous réserve d'approbation de l'auteur ;-), il semble bien
d'après ce que j'en lis, que l'ensemble des paramètres, y compris le texte
du mél, doivent être effectivement intégrés en un seule et unique ligne ;
l'explication serait que ce code n'est ni plus ni moins qu'une exécution du
programme OE msimn.exe au travers d'une commande Exécuter (équivalent de
Démarrer, Exécuter), suivi d'un ensemble de paramètres accéptés par cet
exécutable et précédés par des commutateurs ad-hoc. (un peu à l'instar du
"fameux" Démarrer Exécuter "C:Program FilesMicrosoft
OfficeOfficeExcel.exe" /Regserver - qui sert à réinitialiser l'ensemble
des entrées de la base de registre pour Excel - mais bon, là tu connais !)

Cordialement
Pascal

"jps" a écrit dans le message de
news:%
ach! merdum de merdum...j'étais persuadé que l'adresse écrite par papou
était bidon
désolé GDNxt....tu peux jeter le fichier des anciens combattants 14-18 du
beaujolais
jps
PS1 quant à papou, ça lui a permis de faire d'un scud deux coups, le
félon!

PS2 dis-moi, papou, tant que je te tiens : peux tu me dire pourquoi dans
la

proc de FS pour OE vers qui tu m'as dirigé si aimablement, le , 3" (tu
vois

où c'est?) qui doit correspondre à une des options focus, pourquoi,
disais-je, celui fait finalement partie du corps de l'émile, et ce, juste
à

la fin du texte? merci pour lui

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:OVO2%
Bonjour
C'était avec plaisir ;-)

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)


:-))))))))

Cordialement
Pascal

"le_g0eland" a écrit dans le
message


de news:07b301c47aec$8106e600$

Super Papou !!!
ça marche impec

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)

V
le_g0eland

-----Message d'origine-----
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
..Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire
pour




mettre un
destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.




.














Avatar
jps
merci, papou, pour cette explication mais je crois qu'il faudra que l'auteur
rentre dare-dare de vacances pour nous répondre sur ce point car, volià ce
que donne le texte de mon émile avec le fameux ",3"...

Bonjour,
Cet émile est envoyé avec Outlook Express depuis Excel...
Profitez-en pour me dire si vos coordonnées sont exactes
Amitiés
jps, 3

tu le vois le 3, papou???? j'ai envie de mettre un 2 et ainsi, je
remplacerai le pape qui nous a quittés...
jps

"Papou" a écrit dans le message de
news:
JP
Pour le PS1, je rectifie, il ne s'agissait pas d'un scud mais d'une
histoire

rigolote ;-)
Pour le PS2, sous réserve d'approbation de l'auteur ;-), il semble bien
d'après ce que j'en lis, que l'ensemble des paramètres, y compris le texte
du mél, doivent être effectivement intégrés en un seule et unique ligne ;
l'explication serait que ce code n'est ni plus ni moins qu'une exécution
du

programme OE msimn.exe au travers d'une commande Exécuter (équivalent de
Démarrer, Exécuter), suivi d'un ensemble de paramètres accéptés par cet
exécutable et précédés par des commutateurs ad-hoc. (un peu à l'instar du
"fameux" Démarrer Exécuter "C:Program FilesMicrosoft
OfficeOfficeExcel.exe" /Regserver - qui sert à réinitialiser l'ensemble
des entrées de la base de registre pour Excel - mais bon, là tu connais !)

Cordialement
Pascal

"jps" a écrit dans le message de
news:%
ach! merdum de merdum...j'étais persuadé que l'adresse écrite par papou
était bidon
désolé GDNxt....tu peux jeter le fichier des anciens combattants 14-18
du


beaujolais
jps
PS1 quant à papou, ça lui a permis de faire d'un scud deux coups, le
félon!

PS2 dis-moi, papou, tant que je te tiens : peux tu me dire pourquoi dans
la

proc de FS pour OE vers qui tu m'as dirigé si aimablement, le , 3" (tu
vois

où c'est?) qui doit correspondre à une des options focus, pourquoi,
disais-je, celui fait finalement partie du corps de l'émile, et ce,
juste


à
la fin du texte? merci pour lui

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:OVO2%
Bonjour
C'était avec plaisir ;-)

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)


:-))))))))

Cordialement
Pascal

"le_g0eland" a écrit dans le
message


de news:07b301c47aec$8106e600$

Super Papou !!!
ça marche impec

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)

V
le_g0eland

-----Message d'origine-----
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
..Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire
pour




mettre un
destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.




.


















Avatar
sabatier
re papou
je crois que tu n'es plus là et tu regarderas demain mais voici quelle est
la bonne syntaxe de la proc à FS telle que tu m'en avais donné le lien...
mais tu seras d'accord avec moi pour dire qu'il y en a ras la casquette de
passer derrière tous ces MVPs vraiment trop approximatifs et qu'une fois de
plus, ce sont les petits, les crottés, les sans-grades qui sont obligés de
mettre les mains dans le cambou.ini...
voici donc le morceau de proc (et de bravoure réunies) comme il aurait dû
être écrit pour que ce 3 fasse bien son travail de Maximedfocus...

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte, 3

et fais-moi penser à voler dans les plumes de FS et aussi dans celles d'un
certain Eric Humeau qui a fait encore pire....
jps

"Papou" a écrit dans le message de
news:
JP
Pour le PS1, je rectifie, il ne s'agissait pas d'un scud mais d'une
histoire

rigolote ;-)
Pour le PS2, sous réserve d'approbation de l'auteur ;-), il semble bien
d'après ce que j'en lis, que l'ensemble des paramètres, y compris le texte
du mél, doivent être effectivement intégrés en un seule et unique ligne ;
l'explication serait que ce code n'est ni plus ni moins qu'une exécution
du

programme OE msimn.exe au travers d'une commande Exécuter (équivalent de
Démarrer, Exécuter), suivi d'un ensemble de paramètres accéptés par cet
exécutable et précédés par des commutateurs ad-hoc. (un peu à l'instar du
"fameux" Démarrer Exécuter "C:Program FilesMicrosoft
OfficeOfficeExcel.exe" /Regserver - qui sert à réinitialiser l'ensemble
des entrées de la base de registre pour Excel - mais bon, là tu connais !)

Cordialement
Pascal

"jps" a écrit dans le message de
news:%
ach! merdum de merdum...j'étais persuadé que l'adresse écrite par papou
était bidon
désolé GDNxt....tu peux jeter le fichier des anciens combattants 14-18
du


beaujolais
jps
PS1 quant à papou, ça lui a permis de faire d'un scud deux coups, le
félon!

PS2 dis-moi, papou, tant que je te tiens : peux tu me dire pourquoi dans
la

proc de FS pour OE vers qui tu m'as dirigé si aimablement, le , 3" (tu
vois

où c'est?) qui doit correspondre à une des options focus, pourquoi,
disais-je, celui fait finalement partie du corps de l'émile, et ce,
juste


à
la fin du texte? merci pour lui

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:OVO2%
Bonjour
C'était avec plaisir ;-)

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)


:-))))))))

Cordialement
Pascal

"le_g0eland" a écrit dans le
message


de news:07b301c47aec$8106e600$

Super Papou !!!
ça marche impec

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)

V
le_g0eland

-----Message d'origine-----
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
..Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire
pour




mettre un
destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.




.


















Avatar
Michel Pierron
Bonsoir JPS;
Essaie aussi ça de
Sub OE_Mail()
Application.ScreenUpdating = False
Dim sTo As String
Dim sCC As String
Dim sSubject As String
Application.Goto Range("A1")
ThisWorkbook.EnvelopeVisible = True
SendKeys "+{TAB}+{TAB}+{TAB}", True
sTo = Range("A11").Value
SendKeys "{HOME}+{END}{DEL}" & sTo & "{TAB}", True
sCC = ""
SendKeys "{HOME}+{END}{DEL}" & sCC & "{TAB}", True
sSubject = Range("A10").Value
SendKeys "{HOME}+{END}{DEL}" & sSubject & "{TAB}", True
SendKeys "%s", True
ThisWorkbook.EnvelopeVisible = False
End Sub

MP

"sabatier" a écrit dans le message
de news:
cette proc me donne plein d'idées, papou...mais que faut-il modifier pour
le

rendre possible avec OE au lieu de Outlook?
ce n'est peut-être pas possible finalement...
à suivre et merci d'avance
jps
PS à noter qu'en matière de références, je n'ai pas de MS Outloook Express
x

0.Object Library mais deux autres au nom un peu différent...

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a écrit dans le
message


de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
.Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire pour
mettre un


destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.













Avatar
sabatier
merci, michel, mais j'ai beau chercher dans ma vieille tête, je ne vois
vraiment pas ce que je dois mettre en A1, sachant, si j'ai bien compris
qu'en A11 , il y a l'adresse du destinataire et en A10 le sujet (ou
l'objet?), que je ne sais pas où se mettrait le CC et quid d'un fichier
joint?
tu constates que toutes ces questions attestent de ma grande ignorance...
si tu peux m'en dire plus, michel,....ce sera avec plaisir§
jps

"Michel Pierron" a écrit dans le message de
news:%23%23h$
Bonsoir JPS;
Essaie aussi ça de
Sub OE_Mail()
Application.ScreenUpdating = False
Dim sTo As String
Dim sCC As String
Dim sSubject As String
Application.Goto Range("A1")
ThisWorkbook.EnvelopeVisible = True
SendKeys "+{TAB}+{TAB}+{TAB}", True
sTo = Range("A11").Value
SendKeys "{HOME}+{END}{DEL}" & sTo & "{TAB}", True
sCC = ""
SendKeys "{HOME}+{END}{DEL}" & sCC & "{TAB}", True
sSubject = Range("A10").Value
SendKeys "{HOME}+{END}{DEL}" & sSubject & "{TAB}", True
SendKeys "%s", True
ThisWorkbook.EnvelopeVisible = False
End Sub

MP

"sabatier" a écrit dans le
message

de news:
cette proc me donne plein d'idées, papou...mais que faut-il modifier
pour


le
rendre possible avec OE au lieu de Outlook?
ce n'est peut-être pas possible finalement...
à suivre et merci d'avance
jps
PS à noter qu'en matière de références, je n'ai pas de MS Outloook
Express


x
0.Object Library mais deux autres au nom un peu différent...

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a écrit dans le
message


de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
.Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire pour
mettre un


destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.

















Avatar
Michel Pierron
Hi JPS;
En A1, tu mets ce que tu veux; tu peux par exemple mettre des données de A1
à B6.
Il n'y aura pas de fichier joint; les données de A1 à B6 seront le corps du
message que tu peux t'adresser en mettant ton adresse email en A11 et le
sujet en A10. Si tu veux m'envoyer une copie, mets mon adresse email en A12
par exemple et dans la macro, à la place de sCC = "" inscrit sCC Range(A12).
Souhaitant t'avoir éclairer...
MP

"sabatier" a écrit dans le message
de news:OhH%
merci, michel, mais j'ai beau chercher dans ma vieille tête, je ne vois
vraiment pas ce que je dois mettre en A1, sachant, si j'ai bien compris
qu'en A11 , il y a l'adresse du destinataire et en A10 le sujet (ou
l'objet?), que je ne sais pas où se mettrait le CC et quid d'un fichier
joint?
tu constates que toutes ces questions attestent de ma grande ignorance...
si tu peux m'en dire plus, michel,....ce sera avec plaisir§
jps

"Michel Pierron" a écrit dans le message de
news:%23%23h$
Bonsoir JPS;
Essaie aussi ça de
Sub OE_Mail()
Application.ScreenUpdating = False
Dim sTo As String
Dim sCC As String
Dim sSubject As String
Application.Goto Range("A1")
ThisWorkbook.EnvelopeVisible = True
SendKeys "+{TAB}+{TAB}+{TAB}", True
sTo = Range("A11").Value
SendKeys "{HOME}+{END}{DEL}" & sTo & "{TAB}", True
sCC = ""
SendKeys "{HOME}+{END}{DEL}" & sCC & "{TAB}", True
sSubject = Range("A10").Value
SendKeys "{HOME}+{END}{DEL}" & sSubject & "{TAB}", True
SendKeys "%s", True
ThisWorkbook.EnvelopeVisible = False
End Sub

MP

"sabatier" a écrit dans le
message

de news:
cette proc me donne plein d'idées, papou...mais que faut-il modifier
pour


le
rendre possible avec OE au lieu de Outlook?
ce n'est peut-être pas possible finalement...
à suivre et merci d'avance
jps
PS à noter qu'en matière de références, je n'ai pas de MS Outloook
Express


x
0.Object Library mais deux autres au nom un peu différent...

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a écrit dans le
message


de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
.Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire pour
mettre un


destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.





















Avatar
sabatier
ben oui, tu m'as bien éclairé, michel, et je t'en remercie car j'ai tout
bien compris...sauf que quand j'ai voulu te le faire voir en te mettant en
CC, eh bien, bug sur ThisWorkbook.EnvelopeVisible....but why? why? why?
dalila....comme chantait paul anka
jps

"Michel Pierron" a écrit dans le message de
news:
Hi JPS;
En A1, tu mets ce que tu veux; tu peux par exemple mettre des données de
A1

à B6.
Il n'y aura pas de fichier joint; les données de A1 à B6 seront le corps
du

message que tu peux t'adresser en mettant ton adresse email en A11 et le
sujet en A10. Si tu veux m'envoyer une copie, mets mon adresse email en
A12

par exemple et dans la macro, à la place de sCC = "" inscrit sCC > Range(A12).
Souhaitant t'avoir éclairer...
MP

"sabatier" a écrit dans le
message

de news:OhH%
merci, michel, mais j'ai beau chercher dans ma vieille tête, je ne vois
vraiment pas ce que je dois mettre en A1, sachant, si j'ai bien compris
qu'en A11 , il y a l'adresse du destinataire et en A10 le sujet (ou
l'objet?), que je ne sais pas où se mettrait le CC et quid d'un fichier
joint?
tu constates que toutes ces questions attestent de ma grande
ignorance...


si tu peux m'en dire plus, michel,....ce sera avec plaisir§
jps

"Michel Pierron" a écrit dans le message de
news:%23%23h$
Bonsoir JPS;
Essaie aussi ça de
Sub OE_Mail()
Application.ScreenUpdating = False
Dim sTo As String
Dim sCC As String
Dim sSubject As String
Application.Goto Range("A1")
ThisWorkbook.EnvelopeVisible = True
SendKeys "+{TAB}+{TAB}+{TAB}", True
sTo = Range("A11").Value
SendKeys "{HOME}+{END}{DEL}" & sTo & "{TAB}", True
sCC = ""
SendKeys "{HOME}+{END}{DEL}" & sCC & "{TAB}", True
sSubject = Range("A10").Value
SendKeys "{HOME}+{END}{DEL}" & sSubject & "{TAB}", True
SendKeys "%s", True
ThisWorkbook.EnvelopeVisible = False
End Sub

MP

"sabatier" a écrit dans le
message

de news:
cette proc me donne plein d'idées, papou...mais que faut-il modifier
pour


le
rendre possible avec OE au lieu de Outlook?
ce n'est peut-être pas possible finalement...
à suivre et merci d'avance
jps
PS à noter qu'en matière de références, je n'ai pas de MS Outloook
Express


x
0.Object Library mais deux autres au nom un peu différent...

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message
de




news:
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a écrit dans le
message


de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
.Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------

-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde
ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a
écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland

-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE
c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object
Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai
parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message
de


news:cequnk$pta$
Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer
le fichier actif


par
Email en tant que fichier joint.



ActiveWorkbook.SendMail
Recipients:="NomDestinataire",


Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire pour
mettre un


destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.

























Avatar
Frédéric Sigonneau
Bonsoir,

Merci de cette vérification et correction du code. Rien n'échappe à votre oeil
d'aigle :)
Avec envoi du message, ça pourrait se compléter comme ceci :

'===================== Sub MailOXpress()
Dim dest$, sujet$, texte$

dest = ""
sujet = "Envoyer un mail depuis Xl"
texte = "Envoyé avec Outlook Express depuis Excel"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte, vbMaximizedFocus
DoEvents
SendKeys "%s"
End Sub
'=====================
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


re papou
je crois que tu n'es plus là et tu regarderas demain mais voici quelle est
la bonne syntaxe de la proc à FS telle que tu m'en avais donné le lien...
mais tu seras d'accord avec moi pour dire qu'il y en a ras la casquette de
passer derrière tous ces MVPs vraiment trop approximatifs et qu'une fois de
plus, ce sont les petits, les crottés, les sans-grades qui sont obligés de
mettre les mains dans le cambou.ini...
voici donc le morceau de proc (et de bravoure réunies) comme il aurait dû
être écrit pour que ce 3 fasse bien son travail de Maximedfocus...

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte, 3

et fais-moi penser à voler dans les plumes de FS et aussi dans celles d'un
certain Eric Humeau qui a fait encore pire....
jps

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

JP
Pour le PS1, je rectifie, il ne s'agissait pas d'un scud mais d'une


histoire

rigolote ;-)
Pour le PS2, sous réserve d'approbation de l'auteur ;-), il semble bien
d'après ce que j'en lis, que l'ensemble des paramètres, y compris le texte
du mél, doivent être effectivement intégrés en un seule et unique ligne ;
l'explication serait que ce code n'est ni plus ni moins qu'une exécution


du

programme OE msimn.exe au travers d'une commande Exécuter (équivalent de
Démarrer, Exécuter), suivi d'un ensemble de paramètres accéptés par cet
exécutable et précédés par des commutateurs ad-hoc. (un peu à l'instar du
"fameux" Démarrer Exécuter "C:Program FilesMicrosoft
OfficeOfficeExcel.exe" /Regserver - qui sert à réinitialiser l'ensemble
des entrées de la base de registre pour Excel - mais bon, là tu connais !)

Cordialement
Pascal

"jps" a écrit dans le message de
news:%

ach! merdum de merdum...j'étais persuadé que l'adresse écrite par papou
était bidon
désolé GDNxt....tu peux jeter le fichier des anciens combattants 14-18



du

beaujolais
jps
PS1 quant à papou, ça lui a permis de faire d'un scud deux coups, le


félon!

PS2 dis-moi, papou, tant que je te tiens : peux tu me dire pourquoi dans


la

proc de FS pour OE vers qui tu m'as dirigé si aimablement, le , 3" (tu


vois

où c'est?) qui doit correspondre à une des options focus, pourquoi,
disais-je, celui fait finalement partie du corps de l'émile, et ce,



juste

à

la fin du texte? merci pour lui

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:OVO2%

Bonjour
C'était avec plaisir ;-)


JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)


:-))))))))

Cordialement
Pascal

"le_g0eland" a écrit dans le



message

de news:07b301c47aec$8106e600$

Super Papou !!!
ça marche impec

JP (sabatier) : apparemment tu as testé le code avec mon
adresse dedans car j'ai reçu un fichier (j'ai cru que
c'était un spam !!!)

V
le_g0eland


-----Message d'origine-----
modifie comme ça :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set Nmessage = objOutlook.CreateItem(olMailItem)
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & _
"C'est le fichier dont je t'ai parlé" _
& vbLf & "A bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal

"le_g0eland" a


écrit dans le message

de news:076701c47ac7$e4852c70$

Pour les ".." je ne sais pas par quel mystère ils
apparaissent comme ça dans les messages.
Peut être que les espaces " " sont convertis en "." ?

En ne mettant qu'un point, j'ai une erreur au niveau de :
..Subject = "Testons"
variable objet ou variable de bloc with non définie

Je met dessous le code que j'utilise :

-------------------
Sub AllonsY()

Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem

Set objOutlook = New Outlook.Application

With Nmessage
.Subject = "Testons"
.Body = "Salut" & vbLf & "C'est le fichier dont je
t'ai parlé" & vbLf & "A bientôt"
.Attachments.Add (ThisWorkbook.FullName)
.ReadReceiptRequested = True
.Recipients.Add ("")
.Send
End With

Set objOutlook = Nothing
Set Nmessage = Nothing

End Sub
-------------------


-----Message d'origine-----
Bonjour
Ben je ne comprend pas vraiment parce que si je regarde


ma premier réponse,

il n'y avait pas d'erreur !
Mais bon pour avancer, il ne faut qu'un seul "." (point)

Cordialement
Pascal

"le_g0eland" a


écrit dans le message

de news:05d601c47ab8$d15b28c0$

Salut Pascal,

J'ai fait un copier/coller de tes lignes de code (ci-
dessous) et toutes les lignes commençant par ".."
apparaissent en rouge.

Il y a des précautions à prendre ou j'ai un bogue ?

V
le g0eland


-----Message d'origine-----
Bonjour
Pas possible avec SendMail, mais par contre avec OLE


c'est possible.

Ajoute une référence à Microsoft Outlook x.0 Object


Library (où x correspond

à ta version)
puis dans un module standard :
Sub AllonsY()
Dim objOutlook As Outlook.Application
Dim Nmessage As Outlook.MailItem
Set objOutlook = New Outlook.Application
With Nmessage
..Subject = "Testons"
..Body = "Salut" & vbLf & "C'est le fichier dont je t'ai


parlé" & vbLf & "A

bientôt"
..Attachments.Add (ThisWorkbook.FullName)
..ReadReceiptRequested = True
..Recipients.Add ("")
..Send
End With
Set objOutlook = Nothing
Set Nmessage = Nothing
End Sub

Cordialement
Pascal


"GD_NXT" a écrit dans le message



de

news:cequnk$pta$

Bonjour à tous

Dans une macro, j'utilise le code suivant pour envoyer



le fichier actif

par

Email en tant que fichier joint.



ActiveWorkbook.SendMail



Recipients:="NomDestinataire",

Subject:=NomFichier & "Email transfert auto"





Ma difficulté est que je ne sais pas comment faire





pour

mettre un

destinataire en copie, ni mettre un texte de message!

Merci d'avance pour votre aide.

Cordialement.

GDNxt





.




.




.




















1 2 3