VBA envoi e-mail avec avec piece jointe via CBO : fichier impossible a ouvrir - Excel

A voir également:Vba envoi e-mail avec avec piece jointe via cbo : fichier impossible a ouvrirComment envoyer un mail avec une pièce jointe - Conseils pratiques - PHP Comment faire pour envoyer un mail avec une pièce jointe - Conseils pratiques - Messagerie électronique Envoyer des mails batch avec pièces jointes ✓ - Forum - Autoit / batch Vba envoi mail outlook avec piece jointe ✓ - Forum - Bureautique Envoyer un mail avec piece jointe sous vba ✓ - Forum - Bureautique

Bonjour à toutes et tous,

J'utilise un classeur de facon régulière et sur plusieurs ordinateurs différents c'est pourquoi j'ai créé une macro qui, à la fermeture du classeurs, enregistre-sous une copie du classeur > me l'envoi par e-mail > supprime la copie créé après l'envoi.

La macro fonctionne, je recois bien un e-mail contenant le fichier cependant lorsque j'enregistre la pièce jointe et que je clique pour l'ouvrir j'ai toujours le message d'erreur suivant :



J'ai décortiqué la macro en commençant par l'enregistrement-sous uniquement (sans l'envoyer), et lorsque j'ouvre le fichier ça fonctionne. Je me suis envoyé ce même fichier via Outlook, de nouveau ça fonctionne sans sans encombre... mais lorsque je passe pas le code ci-dessous... je ne peux pas ouvrir le fichier reçu, est-ce que quelqu'un aurait une idée du pourquoi?

Private Sub Workbook_BeforeClose(Cancel As Boolean)     Dim mail As String     Dim mdp As String     Dim z As String          mail = "[email protected]"     mdp = "mdp"      'Dim Sh As Worksheet     Dim mMessage As Object     Dim mConfig As Object     Dim mChps          'Enregistre le fichier sous C:\     z = "D:\" & ActiveWorkbook.Name     ActiveWorkbook.SaveCopyAs z         Set mConfig = CreateObject("CDO.Configuration")     mConfig.Load -1     Set mChps = mConfig.Fields     With mChps         .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465                     .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"             .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mail             .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mdp            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"         .Update     End With     Application.ScreenUpdating = False              Set mMessage = CreateObject("CDO.Message")     With mMessage     Set .Configuration = mConfig         .To = "[email protected]"         .From = mail         .Subject = "Objet"         .AddAttachment z       .Send    End With       Kill z    Set mMessage = Nothing       'Libère les ressources    Set mConfig = Nothing    Set mChps = Nothing End Sub 


Je vous remercie par avance pour toute l'aide que vous pourrez m'apporter!
Bonne soirée

Jc

Forum

A voir également:Vba envoi e-mail avec avec piece jointe via cbo : fichier impossible a ouvrirComment envoyer un mail avec une pièce jointe - Conseils pratiques - PHP Comment faire pour envoyer un mail avec une pièce jointe - Conseils pratiques - Messagerie électronique Envoyer des mails batch avec pièces jointes ✓ - Forum - Autoit / batch Vba envoi mail outlook avec piece jointe ✓ - Forum - Bureautique Envoyer un mail avec piece jointe sous vba ✓ - Forum - Bureautique

Web: www.shapebootstrap.net

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed