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
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
Re
En complément parce que j'avais zappé sur :
comment faire pour mettre un destinataire en copie
Ajouter ces deux lignes (en adpatant) avant le ".Send"

Set Encopie = .Recipients.Add("")
Encopie.Type = olCC

Cordialement
Pascal

"Papou" a écrit dans le message de
news:
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
le_g0eland
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
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
le_g0eland
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
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
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
papou
Sur le site de FS :
http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/MailAvecOutlookExpress.txt

Cordialement
Pascal

"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
jps
qui c'est encore çui-là?
bon, merci, papou, je pars à sa rencontre, même que je vais partir un moment
car je le sais en vacances in the deep France...
jps

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Sur le site de FS :

http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/MailAvecOutlookExpress.txt


Cordialement
Pascal

"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
le_g0eland
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