Discussion :

[Ced_Del]

Bonjour

J'ai récupéré et utilise le code ci-dessous.

Mon souci est que, si je joins un fichier xls ou zip, la pièce jointe est inutilisable pour le destinataire.
Si je joins un fichier csv, je n'ai pas de problème.

J'ai parcouru plusieurs posts concernant l'envoi de messages par CDO mais n'ai pas trouvé la solution.

Quelqu'un aurait-il une idée ?

Par avance merci

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Cedric.Delalande@saint-gobain.com"
objEmail.To = "Ced@Del.com"
objEmail.Subject = "envoi_piece_jointe"
objEmail.AddAttachment ("D:\test.xls")
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.de.mon.entreprise"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

[patricktoulon]

bonjour

quand on utilise la méthode CDO
ceci:""smtp.server.de.mon.entreprise"" n'est pas bon
il faut mettre le serveur du fournisseur d'accès de ton entreprise
maintenant si tu passe par serveur intermédiaire (celui de ton entreprise ) je n'en suis pas sur mais je pense que ça n'est pas possible


en plus il me semble que ca me le fesait a moi aussi l'extention etait absente ou changée c'etait simplement le niveau de securité sur hotmail (pour moi)
au plaisir

[Ced_Del]

Bonjour

Désolé de n'avoir pas répondu plus tôt mais j'étais en déplacement.

Je n'ai pas de souci pour envoyer le courriel avec le serveur de mon entreprise.
D'ailleurs cela marche sans pièce jointe ou avec un fichier csv.

C'est quand j'envoie un fichier xls ou zip que la pièce jointe devient inutilisable.
J'arrive à l'enregistrer sur mon PC mais elle reste corrompue.

Quand c'est un fichier zip, j'ai le message "Dinazip Secure Unzip File read error".
Quand c'est un fichier xls, j'ai "Le document est endommagé et ne peut pas être ouvert"

Si quelqu'un a une idée, je suis preneur.

Merci

[patricktoulon]

bonjour

je te le redis ca vient de hotmail regarde du cote de la securité

c'est tout

au plaisir