1/ J'extrais des feuilles d'un classeur que je copie dans un nouveau afin
de les envoyer:
Sheets(array("Feuil1","Feuil2",Feuil3")).copy
ActiveWorkbook.SendMail , Recipients:="destinataire",
Subject:="essai", returnreceipt:=True
Comment faire pour qu'au moment de l'envoi, dans le corps du message
apparaisse un message du style: Bonjour, ci joint le fichier......
2/ Sur Outlook Express, dans Outils/Option Onglet sécurité, je
souhaiterais pouvoir décocher (si elle est cochée) la case : "
M'avertir lorsque d'autres applications tentent d'envoyer des messages de ma
part ", à partir d'Excel et avant l'envoi du message.
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With Kill file End Sub
Salutations!
"RV" a écrit dans le message de news: Bonsoir à tous,
1/ J'extrais des feuilles d'un classeur que je copie dans un nouveau afin de les envoyer: Sheets(array("Feuil1","Feuil2",Feuil3")).copy ActiveWorkbook.SendMail , Recipients:="destinataire", Subject:="essai", returnreceipt:=True Comment faire pour qu'au moment de l'envoi, dans le corps du message apparaisse un message du style: Bonjour, ci joint le fichier......
2/ Sur Outlook Express, dans Outils/Option Onglet sécurité, je souhaiterais pouvoir décocher (si elle est cochée) la case : " M'avertir lorsque d'autres applications tentent d'envoyer des messages de ma part ", à partir d'Excel et avant l'envoi du message.
Merci
Cordialement
RV
Bonjour Rv,
Une procédure de Laurent Longré
Pour envoyer ton fichier, enregistre le et tu le détruits après l'envoi.
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'----------------------------
Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message")
.From = "mymail@myprovider.fr"
.To = "mycontact@hisprovider.com"
.CC = "mywife@herprovider.com"
.BCC = "myaddress@myprovider.com"
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
Kill file
End Sub
Salutations!
"RV" <dick.pitt@rv.fr> a écrit dans le message de news: O7vQrlcnFHA.1416@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
1/ J'extrais des feuilles d'un classeur que je copie dans un nouveau afin
de les envoyer:
Sheets(array("Feuil1","Feuil2",Feuil3")).copy
ActiveWorkbook.SendMail , Recipients:="destinataire",
Subject:="essai", returnreceipt:=True
Comment faire pour qu'au moment de l'envoi, dans le corps du message
apparaisse un message du style: Bonjour, ci joint le fichier......
2/ Sur Outlook Express, dans Outils/Option Onglet sécurité, je
souhaiterais pouvoir décocher (si elle est cochée) la case : "
M'avertir lorsque d'autres applications tentent d'envoyer des messages de ma
part ", à partir d'Excel et avant l'envoi du message.
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With Kill file End Sub
Salutations!
"RV" a écrit dans le message de news: Bonsoir à tous,
1/ J'extrais des feuilles d'un classeur que je copie dans un nouveau afin de les envoyer: Sheets(array("Feuil1","Feuil2",Feuil3")).copy ActiveWorkbook.SendMail , Recipients:="destinataire", Subject:="essai", returnreceipt:=True Comment faire pour qu'au moment de l'envoi, dans le corps du message apparaisse un message du style: Bonjour, ci joint le fichier......
2/ Sur Outlook Express, dans Outils/Option Onglet sécurité, je souhaiterais pouvoir décocher (si elle est cochée) la case : " M'avertir lorsque d'autres applications tentent d'envoyer des messages de ma part ", à partir d'Excel et avant l'envoi du message.
Merci
Cordialement
RV
RV
Bonsoir Michdenis,
Merci pour ta réponse, je m'en vais l'essayer tout de suite. Bonne soirée.
RV
"michdenis" a écrit dans le message de news: %
Bonjour Rv,
Une procédure de Laurent Longré
Pour envoyer ton fichier, enregistre le et tu le détruits après l'envoi.
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'---------------------------- Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With Kill file End Sub
Salutations!
"RV" a écrit dans le message de news:
Bonsoir à tous,
1/ J'extrais des feuilles d'un classeur que je copie dans un nouveau afin de les envoyer: Sheets(array("Feuil1","Feuil2",Feuil3")).copy ActiveWorkbook.SendMail , Recipients:="destinataire", Subject:="essai", returnreceipt:=True Comment faire pour qu'au moment de l'envoi, dans le corps du message apparaisse un message du style: Bonjour, ci joint le fichier......
2/ Sur Outlook Express, dans Outils/Option Onglet sécurité, je souhaiterais pouvoir décocher (si elle est cochée) la case : " M'avertir lorsque d'autres applications tentent d'envoyer des messages de ma part ", à partir d'Excel et avant l'envoi du message.
Merci
Cordialement
RV
Bonsoir Michdenis,
Merci pour ta réponse, je m'en vais l'essayer tout de suite.
Bonne soirée.
RV
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23ZzNH8cnFHA.3936@TK2MSFTNGP10.phx.gbl...
Bonjour Rv,
Une procédure de Laurent Longré
Pour envoyer ton fichier, enregistre le et tu le détruits après l'envoi.
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'----------------------------
Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message")
.From = "mymail@myprovider.fr"
.To = "mycontact@hisprovider.com"
.CC = "mywife@herprovider.com"
.BCC = "myaddress@myprovider.com"
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
Kill file
End Sub
Salutations!
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
O7vQrlcnFHA.1416@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
1/ J'extrais des feuilles d'un classeur que je copie dans un nouveau
afin
de les envoyer:
Sheets(array("Feuil1","Feuil2",Feuil3")).copy
ActiveWorkbook.SendMail , Recipients:="destinataire",
Subject:="essai", returnreceipt:=True
Comment faire pour qu'au moment de l'envoi, dans le corps du message
apparaisse un message du style: Bonjour, ci joint le fichier......
2/ Sur Outlook Express, dans Outils/Option Onglet sécurité, je
souhaiterais pouvoir décocher (si elle est cochée) la case : "
M'avertir lorsque d'autres applications tentent d'envoyer des messages de
ma
part ", à partir d'Excel et avant l'envoi du message.
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With Kill file End Sub
Salutations!
"RV" a écrit dans le message de news:
Bonsoir à tous,
1/ J'extrais des feuilles d'un classeur que je copie dans un nouveau afin de les envoyer: Sheets(array("Feuil1","Feuil2",Feuil3")).copy ActiveWorkbook.SendMail , Recipients:="destinataire", Subject:="essai", returnreceipt:=True Comment faire pour qu'au moment de l'envoi, dans le corps du message apparaisse un message du style: Bonjour, ci joint le fichier......
2/ Sur Outlook Express, dans Outils/Option Onglet sécurité, je souhaiterais pouvoir décocher (si elle est cochée) la case : " M'avertir lorsque d'autres applications tentent d'envoyer des messages de ma part ", à partir d'Excel et avant l'envoi du message.
