Voici le code que j'utilise pour envoyer directement un=20
fichier excel par outlook via un userform.
Malheureusement, le fichier se Zip automatiquement lors de=20
l'envoi.
Y a t'il un moyen pour forcer l'envoi du fichier sans=20
qu'il soit zipper automatiquement ?
'envoi du fichier par email
With objMail
.To =3D "info@adresse.fr"
.Subject =3D "blabla"
.Body =3D "Bonjour"=20
Dim Chemin$
'r=E9cup=E8re nom + chemin
Chemin =3D Workbooks("Enlevement.xls").FullName
'ferme et enregistre le classeur
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
j
je suppose que ton pb vient de la configuration de ton logiciel de messagerie et non de la macro qui ne zippe rien du tout...
"DENIS" a écrit dans le message de news: 028401c4e41d$bfcfd5f0$ Bonjour à tous,
Voici le code que j'utilise pour envoyer directement un fichier excel par outlook via un userform. Malheureusement, le fichier se Zip automatiquement lors de l'envoi. Y a t'il un moyen pour forcer l'envoi du fichier sans qu'il soit zipper automatiquement ?
'envoi du fichier par email With objMail .To = "" .Subject = "blabla" .Body = "Bonjour" Dim Chemin$ 'récupère nom + chemin Chemin = Workbooks("Enlevement.xls").FullName 'ferme et enregistre le classeur Workbooks("Enlevement.xls").Close True .Attachments.Add Chemin .Display .Send End With End If
Merci
je suppose que ton pb vient de la configuration de ton logiciel de
messagerie et non de la macro qui ne zippe rien du tout...
j@c
"DENIS" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 028401c4e41d$bfcfd5f0$a501280a@phx.gbl...
Bonjour à tous,
Voici le code que j'utilise pour envoyer directement un
fichier excel par outlook via un userform.
Malheureusement, le fichier se Zip automatiquement lors de
l'envoi.
Y a t'il un moyen pour forcer l'envoi du fichier sans
qu'il soit zipper automatiquement ?
'envoi du fichier par email
With objMail
.To = "info@adresse.fr"
.Subject = "blabla"
.Body = "Bonjour"
Dim Chemin$
'récupère nom + chemin
Chemin = Workbooks("Enlevement.xls").FullName
'ferme et enregistre le classeur
Workbooks("Enlevement.xls").Close True
.Attachments.Add Chemin
.Display
.Send
End With
End If
je suppose que ton pb vient de la configuration de ton logiciel de messagerie et non de la macro qui ne zippe rien du tout...
"DENIS" a écrit dans le message de news: 028401c4e41d$bfcfd5f0$ Bonjour à tous,
Voici le code que j'utilise pour envoyer directement un fichier excel par outlook via un userform. Malheureusement, le fichier se Zip automatiquement lors de l'envoi. Y a t'il un moyen pour forcer l'envoi du fichier sans qu'il soit zipper automatiquement ?
'envoi du fichier par email With objMail .To = "" .Subject = "blabla" .Body = "Bonjour" Dim Chemin$ 'récupère nom + chemin Chemin = Workbooks("Enlevement.xls").FullName 'ferme et enregistre le classeur Workbooks("Enlevement.xls").Close True .Attachments.Add Chemin .Display .Send End With End If
