J'ai un fichier qui envoi automatiquement 1 fichier excel=20
par email chez un client, mais lors de l'envoi, le fichier=20
se ZIP automatiquement et contraint le destinataire =E0 le=20
d=E9Ziper.
Peut on d=E9connecter cette compression via la macro qui=20
envoi ce fichier =E9tant donn=E9 qu'il ne fait que 46ko non=20
compress=E9 ?
With objMail
.To =3D "destinataire.fr"
.Subject =3D " *** "=20
.Body =3D "Veuillez trouver ci-joint"=20
Dim Chemin$
Chemin =3D Workbooks("Enlevement.xls").FullName
Workbooks("Enlevement.xls").Close True
.Attachments.Add Chemin
.Display
.Send
End With
End If
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
Gaspareau
Juste comme ça,
Ça ne serait pas ton logiciel de mail qui zipperait par défaut tous les fichiers sortants ?
-- Gaspareau
Mon adresse de bal via http://cerbermail.com/?5d2oh98jSk
"DENIS" a écrit dans le message de news:1222d01c44263$ccf4fe60$ Bonjour à tous,
J'ai un fichier qui envoi automatiquement 1 fichier excel par email chez un client, mais lors de l'envoi, le fichier se ZIP automatiquement et contraint le destinataire à le déZiper. Peut on déconnecter cette compression via la macro qui envoi ce fichier étant donné qu'il ne fait que 46ko non compressé ?
With objMail .To = "destinataire.fr" .Subject = " *** " .Body = "Veuillez trouver ci-joint" Dim Chemin$ Chemin = Workbooks("Enlevement.xls").FullName Workbooks("Enlevement.xls").Close True .Attachments.Add Chemin .Display .Send End With End If
Merci !
Juste comme ça,
Ça ne serait pas ton logiciel de mail qui zipperait par
défaut tous les fichiers sortants ?
--
Gaspareau
Mon adresse de bal via
http://cerbermail.com/?5d2oh98jSk
"DENIS" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:1222d01c44263$ccf4fe60$a501280a@phx.gbl...
Bonjour à tous,
J'ai un fichier qui envoi automatiquement 1 fichier excel
par email chez un client, mais lors de l'envoi, le fichier
se ZIP automatiquement et contraint le destinataire à le
déZiper.
Peut on déconnecter cette compression via la macro qui
envoi ce fichier étant donné qu'il ne fait que 46ko non
compressé ?
With objMail
.To = "destinataire.fr"
.Subject = " *** "
.Body = "Veuillez trouver ci-joint"
Dim Chemin$
Chemin = Workbooks("Enlevement.xls").FullName
Workbooks("Enlevement.xls").Close True
.Attachments.Add Chemin
.Display
.Send
End With
End If
Ça ne serait pas ton logiciel de mail qui zipperait par défaut tous les fichiers sortants ?
-- Gaspareau
Mon adresse de bal via http://cerbermail.com/?5d2oh98jSk
"DENIS" a écrit dans le message de news:1222d01c44263$ccf4fe60$ Bonjour à tous,
J'ai un fichier qui envoi automatiquement 1 fichier excel par email chez un client, mais lors de l'envoi, le fichier se ZIP automatiquement et contraint le destinataire à le déZiper. Peut on déconnecter cette compression via la macro qui envoi ce fichier étant donné qu'il ne fait que 46ko non compressé ?
With objMail .To = "destinataire.fr" .Subject = " *** " .Body = "Veuillez trouver ci-joint" Dim Chemin$ Chemin = Workbooks("Enlevement.xls").FullName Workbooks("Enlevement.xls").Close True .Attachments.Add Chemin .Display .Send End With End If
