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
Daniel
Bonjour.
Shell "C:winzipwinzip32.exe -a C:MonRepMonFichier.zip F:MonRepMonFichierAZiper" (les chemins doivent être changés).
Pour l'envoi (avec Outlook), essaie la macro suivante adaptée de l'exemple de Ron de Bruin :
Sub Send_Files() 'Working in 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet
Application.EnableEvents = False
Set sh = Sheets("Feuil1")
Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon
'Enter the file names in the C:Z column in each row Set rng = sh.Cells(1, 1).Range("C1:Z1") rng.Select Set OutMail = OutApp.CreateItem(0)
With OutMail .To = "" .Subject = "Testfile" .Body = "Hi Daniel" .Attachments.Add "e:donneesdanielmpfetoto.txt" .Send 'Or use Display End With
Set OutMail = Nothing Set OutApp = Nothing
Application.EnableEvents = True End Sub
Cordialement. Daniel "Fuentes Mickael" a écrit dans le message de news:
Bonjour à tous,
je suis à la recherche d'une commande en visual basic pouvant zipper un fichier et directement l'envoyer par mail.
merci d'avance Micky
Bonjour.
Shell "C:winzipwinzip32.exe -a C:MonRepMonFichier.zip
F:MonRepMonFichierAZiper"
(les chemins doivent être changés).
Pour l'envoi (avec Outlook), essaie la macro suivante adaptée de l'exemple
de Ron de Bruin :
Sub Send_Files()
'Working in 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Application.EnableEvents = False
Set sh = Sheets("Feuil1")
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
'Enter the file names in the C:Z column in each row
Set rng = sh.Cells(1, 1).Range("C1:Z1")
rng.Select
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "dcolardelle@free.fr"
.Subject = "Testfile"
.Body = "Hi Daniel"
.Attachments.Add "e:donneesdanielmpfetoto.txt"
.Send 'Or use Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
"Fuentes Mickael" <mickael_fuentes@pgep.fr> a écrit dans le message de news:
OcloIFcoHHA.1776@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
je suis à la recherche d'une commande en visual basic pouvant zipper un
fichier et directement l'envoyer par mail.
Shell "C:winzipwinzip32.exe -a C:MonRepMonFichier.zip F:MonRepMonFichierAZiper" (les chemins doivent être changés).
Pour l'envoi (avec Outlook), essaie la macro suivante adaptée de l'exemple de Ron de Bruin :
Sub Send_Files() 'Working in 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet
Application.EnableEvents = False
Set sh = Sheets("Feuil1")
Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon
'Enter the file names in the C:Z column in each row Set rng = sh.Cells(1, 1).Range("C1:Z1") rng.Select Set OutMail = OutApp.CreateItem(0)
With OutMail .To = "" .Subject = "Testfile" .Body = "Hi Daniel" .Attachments.Add "e:donneesdanielmpfetoto.txt" .Send 'Or use Display End With
Set OutMail = Nothing Set OutApp = Nothing
Application.EnableEvents = True End Sub
Cordialement. Daniel "Fuentes Mickael" a écrit dans le message de news:
Bonjour à tous,
je suis à la recherche d'une commande en visual basic pouvant zipper un fichier et directement l'envoyer par mail.
merci d'avance Micky
Fuentes Mickael
Petit probleme avec l'envoi du mail la commande de Daniel ne fonctionne pas avec mon excel97. par contre j'ai une autre macro avec laquelle je n'arrive pas à joindre mon fichier mais sinon elle fonctionne.
Petit probleme avec l'envoi du mail
la commande de Daniel ne fonctionne pas avec mon excel97.
par contre j'ai une autre macro avec laquelle je n'arrive pas à joindre mon
fichier mais sinon elle fonctionne.
Petit probleme avec l'envoi du mail la commande de Daniel ne fonctionne pas avec mon excel97. par contre j'ai une autre macro avec laquelle je n'arrive pas à joindre mon fichier mais sinon elle fonctionne.
Private test() With CreateObject("CDO.Message") .From = " .To = "" .CC = "" .BCC = "" .Subject = "L'objet du message" .TextBody = "Corps du message" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
"Fuentes Mickael" a écrit dans le message de news:
Petit probleme avec l'envoi du mail la commande de Daniel ne fonctionne pas avec mon excel97. par contre j'ai une autre macro avec laquelle je n'arrive pas à joindre mon fichier mais sinon elle fonctionne.
Private test()
With CreateObject("CDO.Message")
.From = "Source@adresse
.To = "Destinataire@Fournisseur"
.CC = "Destinataire@Fournisseur"
.BCC = "Destinataire@Fournisseur"
.Subject = "L'objet du message"
.TextBody = "Corps du message"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
End Sub
"Fuentes Mickael" <mickael_fuentes@pgep.fr> a écrit dans le message de news:
ePlH2idoHHA.1220@TK2MSFTNGP03.phx.gbl...
Petit probleme avec l'envoi du mail
la commande de Daniel ne fonctionne pas avec mon excel97.
par contre j'ai une autre macro avec laquelle je n'arrive pas à joindre mon
fichier mais sinon elle fonctionne.
Private test() With CreateObject("CDO.Message") .From = " .To = "" .CC = "" .BCC = "" .Subject = "L'objet du message" .TextBody = "Corps du message" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
"Fuentes Mickael" a écrit dans le message de news:
Petit probleme avec l'envoi du mail la commande de Daniel ne fonctionne pas avec mon excel97. par contre j'ai une autre macro avec laquelle je n'arrive pas à joindre mon fichier mais sinon elle fonctionne.