BJR =E0 toutes et tous.
J'ai besoin d'aide car dans un classeur XL2000, je publie=20
en un fichier html, une zone d'une page. Jusque-l=E0, cela=20
va! Mais toujours par macro, je d=E9sire envoyer ce fichier=20
html via outlook6 au destinataire concern=E9, mais l=E0 je=20
p=EAche gr=E2ve ... ;-)
Quelqu'un saura-t-il me sortir de l=E0.
Merci d'avance.
Cordialement.
Eliot
expression Obligatoire. Expression qui renvoie un objet Workbook.
Recipients Argument de type Variant obligatoire. Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. Vous devez spécifier au moins un destinataire, et tous les autres sont ajoutés dans la liste « À ».
Subject Argument de type Variant facultatif. Spécifie le sujet du message. Si vous ne spécifiez pas cet argument, le nom du document est utilisé.
ReturnReceipt Argument de type Variant facultatif. Affectez-lui la valeur True pour exiger un accusé de réception et la valeur False dans le cas contraire. La valeur par défaut est False.
Cet exemple montre comment envoyer le classeur actif à un seul destinataire.
ActiveWorkbook.SendMail recipients:="Jean Selva"MailSystem, ExempleCet exemple montre comment afficher le nom du système de messagerie installé sur l'ordinateur.Select Case Application.MailSystem Case xlMAPI MsgBox "Mail system is Microsoft Mail" Case xlPowerTalk MsgBox "Mail system is PowerTalk" Case xlNoMailSystem MsgBox "No mail system installed" End Select"EliotNaiss" a écrit dans le message de news:7e7401c3e85e$e8604920$ BJR à toutes et tous. J'ai besoin d'aide car dans un classeur XL2000, je publie en un fichier html, une zone d'une page. Jusque-là, cela va! Mais toujours par macro, je désire envoyer ce fichier html via outlook6 au destinataire concerné, mais là je pêche grâve ... ;-) Quelqu'un saura-t-il me sortir de là. Merci d'avance. Cordialement. Eliot
SendMail, méthode
Envoie le classeur en utilisant le système de messagerie installé.
expression Obligatoire. Expression qui renvoie un objet Workbook.
Recipients Argument de type Variant obligatoire. Spécifie le nom du
destinataire sous la forme de texte ou, s'il y a plusieurs destinataires,
d'un tableau de chaînes de caractères. Vous devez spécifier au moins un
destinataire, et tous les autres sont ajoutés dans la liste « À ».
Subject Argument de type Variant facultatif. Spécifie le sujet du message.
Si vous ne spécifiez pas cet argument, le nom du document est utilisé.
ReturnReceipt Argument de type Variant facultatif. Affectez-lui la valeur
True pour exiger un accusé de réception et la valeur False dans le cas
contraire. La valeur par défaut est False.
Cet exemple montre comment envoyer le classeur actif à un seul destinataire.
ActiveWorkbook.SendMail recipients:="Jean Selva"MailSystem, ExempleCet
exemple montre comment afficher le nom du système de messagerie installé sur
l'ordinateur.Select Case Application.MailSystem
Case xlMAPI
MsgBox "Mail system is Microsoft Mail"
Case xlPowerTalk
MsgBox "Mail system is PowerTalk"
Case xlNoMailSystem
MsgBox "No mail system installed"
End Select"EliotNaiss" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:7e7401c3e85e$e8604920$a401280a@phx.gbl...
BJR à toutes et tous.
J'ai besoin d'aide car dans un classeur XL2000, je publie
en un fichier html, une zone d'une page. Jusque-là, cela
va! Mais toujours par macro, je désire envoyer ce fichier
html via outlook6 au destinataire concerné, mais là je
pêche grâve ... ;-)
Quelqu'un saura-t-il me sortir de là.
Merci d'avance.
Cordialement.
Eliot
expression Obligatoire. Expression qui renvoie un objet Workbook.
Recipients Argument de type Variant obligatoire. Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. Vous devez spécifier au moins un destinataire, et tous les autres sont ajoutés dans la liste « À ».
Subject Argument de type Variant facultatif. Spécifie le sujet du message. Si vous ne spécifiez pas cet argument, le nom du document est utilisé.
ReturnReceipt Argument de type Variant facultatif. Affectez-lui la valeur True pour exiger un accusé de réception et la valeur False dans le cas contraire. La valeur par défaut est False.
Cet exemple montre comment envoyer le classeur actif à un seul destinataire.
ActiveWorkbook.SendMail recipients:="Jean Selva"MailSystem, ExempleCet exemple montre comment afficher le nom du système de messagerie installé sur l'ordinateur.Select Case Application.MailSystem Case xlMAPI MsgBox "Mail system is Microsoft Mail" Case xlPowerTalk MsgBox "Mail system is PowerTalk" Case xlNoMailSystem MsgBox "No mail system installed" End Select"EliotNaiss" a écrit dans le message de news:7e7401c3e85e$e8604920$ BJR à toutes et tous. J'ai besoin d'aide car dans un classeur XL2000, je publie en un fichier html, une zone d'une page. Jusque-là, cela va! Mais toujours par macro, je désire envoyer ce fichier html via outlook6 au destinataire concerné, mais là je pêche grâve ... ;-) Quelqu'un saura-t-il me sortir de là. Merci d'avance. Cordialement. Eliot
Pascal Engelmajer
Salut, une piste pour demarrer Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "EliotNaiss" a écrit dans le message de news: 7e7401c3e85e$e8604920$ BJR à toutes et tous. J'ai besoin d'aide car dans un classeur XL2000, je publie en un fichier html, une zone d'une page. Jusque-là, cela va! Mais toujours par macro, je désire envoyer ce fichier html via outlook6 au destinataire concerné, mais là je pêche grâve ... ;-) Quelqu'un saura-t-il me sortir de là. Merci d'avance. Cordialement. Eliot
Salut,
une piste pour demarrer
Sub SendEMailOB()
'en A1 le destinataire
'en A2 l'objet du message
'en A3 le corps du message
'en A4 le fichier joint
Dim ol As Object
Dim unItem As Object
Dim fichierJoint As Object
Set ol = CreateObject("outlook.application")
Set unItem = ol.CreateItem(olMailItem)
Set fichierJoint = unItem.Attachments
unItem.To = [A1].Text
unItem.Subject = [A2].Text
unItem.Body = [A3].Text
fichierJoint.Add [A4].Text
unItem.Send
ol.Quit
Set ol = Nothing
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"EliotNaiss" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 7e7401c3e85e$e8604920$a401280a@phx.gbl...
BJR à toutes et tous.
J'ai besoin d'aide car dans un classeur XL2000, je publie
en un fichier html, une zone d'une page. Jusque-là, cela
va! Mais toujours par macro, je désire envoyer ce fichier
html via outlook6 au destinataire concerné, mais là je
pêche grâve ... ;-)
Quelqu'un saura-t-il me sortir de là.
Merci d'avance.
Cordialement.
Eliot
Salut, une piste pour demarrer Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "EliotNaiss" a écrit dans le message de news: 7e7401c3e85e$e8604920$ BJR à toutes et tous. J'ai besoin d'aide car dans un classeur XL2000, je publie en un fichier html, une zone d'une page. Jusque-là, cela va! Mais toujours par macro, je désire envoyer ce fichier html via outlook6 au destinataire concerné, mais là je pêche grâve ... ;-) Quelqu'un saura-t-il me sortir de là. Merci d'avance. Cordialement. Eliot
