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
ELDER
Avec sendmail on peut envoyer la feuille d'un classeur ou un classeur complet. Par contre on ne peut pas envoyer la feuille dans le corps dun mail ( Enfin on cherche une solution mais personne n'a trouvé pour le moment ). J'ai une macro qui envoi une feuille proteger à un ou plusieurs destinataire. cette macro a été réalisé avec plusieurs personnes du forum ( que je remercie encore au passage notamment Thierry ) Tu devrais pouvoir l'adapter sans problème a tes besoins.
Sub MailCH6() Application.ScreenUpdating = False Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs [B2] 'le nom en A2 chFichier = ActiveWorkbook.FullName nfichier = ActiveWorkbook.Name xfichier = [C2] ActiveWorkbook.SendMail Recipients:=Array("", ), Subject:="le fichier " & xfichier & " " Application.DisplayAlerts = False ActiveWorkbook.Close Set fs = CreateObject("Scripting.FileSystemObject") fs.Deletefile chFichier Application.CutCopyMode = False Application.DisplayAlerts = True MsgBox " Le fichier " & nfichier & " a été transmis"
Si tu veux que le fichier parte discrètement supprime la dernière ligne et passe Outlook en mode silencieux.
"Pascal Manach" a écrit dans le message de news:%
Bonjour,
Je recherche des infos pour envoyer des emails en auto à parti d'excel.
La fonction sendmail permet d'envoyer un fichier en associant un libellé dans objet et de demander en option un accusé de réception.
Par contre est-il possible de créer du texte dans la zone prévue à cet effet, il semble qu'avec cette fonction cela n'est pas possible.
Merci de m'apporter une solution
A très bientôt.
Pascal
Avec sendmail on peut envoyer la feuille d'un classeur ou un classeur
complet. Par contre on ne peut pas envoyer la feuille dans le corps dun mail
( Enfin on cherche une solution mais personne n'a trouvé pour le moment ).
J'ai une macro qui envoi une feuille proteger à un ou plusieurs
destinataire. cette macro a été réalisé avec plusieurs personnes du forum
( que je remercie encore au passage notamment Thierry ) Tu devrais pouvoir
l'adapter sans problème a tes besoins.
Sub MailCH6()
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs [B2] 'le nom en A2
chFichier = ActiveWorkbook.FullName
nfichier = ActiveWorkbook.Name
xfichier = [C2]
ActiveWorkbook.SendMail Recipients:=Array("yoyo@yoyo.com",
deuxieme.adresse@yoyo.fr), Subject:="le fichier " & xfichier & " "
Application.DisplayAlerts = False
ActiveWorkbook.Close
Set fs = CreateObject("Scripting.FileSystemObject")
fs.Deletefile chFichier
Application.CutCopyMode = False
Application.DisplayAlerts = True
MsgBox " Le fichier " & nfichier & " a été transmis"
Si tu veux que le fichier parte discrètement supprime la dernière ligne et
passe Outlook en mode silencieux.
"Pascal Manach" <p.manach2@libertysurf.fr> a écrit dans le message de
news:%23nZH7HOsDHA.2248@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je recherche des infos pour envoyer des emails en auto à parti d'excel.
La fonction sendmail permet d'envoyer un fichier en associant un libellé
dans objet et de demander en option un accusé de réception.
Par contre est-il possible de créer du texte dans la zone prévue à cet
effet, il semble qu'avec cette fonction cela n'est pas possible.
Avec sendmail on peut envoyer la feuille d'un classeur ou un classeur complet. Par contre on ne peut pas envoyer la feuille dans le corps dun mail ( Enfin on cherche une solution mais personne n'a trouvé pour le moment ). J'ai une macro qui envoi une feuille proteger à un ou plusieurs destinataire. cette macro a été réalisé avec plusieurs personnes du forum ( que je remercie encore au passage notamment Thierry ) Tu devrais pouvoir l'adapter sans problème a tes besoins.
Sub MailCH6() Application.ScreenUpdating = False Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs [B2] 'le nom en A2 chFichier = ActiveWorkbook.FullName nfichier = ActiveWorkbook.Name xfichier = [C2] ActiveWorkbook.SendMail Recipients:=Array("", ), Subject:="le fichier " & xfichier & " " Application.DisplayAlerts = False ActiveWorkbook.Close Set fs = CreateObject("Scripting.FileSystemObject") fs.Deletefile chFichier Application.CutCopyMode = False Application.DisplayAlerts = True MsgBox " Le fichier " & nfichier & " a été transmis"
Si tu veux que le fichier parte discrètement supprime la dernière ligne et passe Outlook en mode silencieux.
"Pascal Manach" a écrit dans le message de news:%
Bonjour,
Je recherche des infos pour envoyer des emails en auto à parti d'excel.
La fonction sendmail permet d'envoyer un fichier en associant un libellé dans objet et de demander en option un accusé de réception.
Par contre est-il possible de créer du texte dans la zone prévue à cet effet, il semble qu'avec cette fonction cela n'est pas possible.
Merci de m'apporter une solution
A très bientôt.
Pascal
Philippe.R
Bonjour Pascal, Tu peux regarder à cette adresse, il devrait y avoir ce que tu cherches :
