gmail envoi automatique fichier excel

bonjour

j 'ai un problème pour modifier une macro d’envoi automatique de fichier excel sous groupwise , je suis depuis peu sur gmail !
qu est ce que je dois modifier pour que cette macro fonctionne
je l'ai joint en copie sur une feuille excel

merci pour votre aide ,

Bonjour,

Je n'ai pas regardé ton fichier, sans macro c'est inutile, ci-dessous un exemple pour envoyer sans boite de messagerie (avec gmail, je ne connais pas, à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Sub mail_direct() Const cdoBasic = 1 Dim admail As String, i As Integer Dim messmail As String Dim expediteur As String On Error Resume Next expediteur = InputBox("Adresse mail de l'Expéditeur", "ADRESSE ELECTRONIQUE", "ton adresse mail") admail = InputBox("choisir le destinataire", "DESTINATAIRE", "ton destinataire") 'ci-dessous tu fais ce que tu veux messmail = "Bonjour," & Chr(10) & "Ci-joint, notre nouvelle commande du " & Date & Chr(10) & Chr(10) & "Cordialement" & Chr(10) & Chr(10) & "M. LEMAIRE Dominique" With CreateObject("CDO.Message") If Err Then 'cidessous à adapter MsgBox ("Problème de CDO non installé sur le serveur WEB") Exit Sub Else .From = expediteur .To = admail '.Bcc = "" .Subject = "ton sujet" .TextBody = messmail .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = expediteur .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ton mot de passe mail" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp de ton serveur" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'à vérifier .Configuration.Fields.Update .AddAttachment fichierJoint 'une variable préalablement déclarée contenant ton fichier joint .Send If Err Then MsgBox "Le message n'a pas pu être expédié." End If On Error GoTo 0 End With MsgBox "le fichier a logiquement été envoyé" End Sub

---

Merci

la macro est recopié sur le fichier 1er onglet

la question est qu est ce que je dois a votre avis modifier pour qu'elle fonctionne

pourquoi, elle ne fonctionne pas ? dans ce cas, expliques ce qui ne fonctionne pas, on regardera pas à pas

elle est programmée pour fonctionner avec la messagerie "groupwise" , cette messagerie a été désactivée pour utiliser GMAIL
j'ai recopié sur ce fichier excel le code vba qui concerne l'envoi du fichier excel par mail , je vous demande votre avis a savoir qu'est que je dois modifier sur cette macro pour qu'elle soit opérationnelle sur gmail
srg

Après avoir lu ton fichier vraiment indigeste :

1 - je te confirme que je ne connais pas les procédures pour gmail
2 - la macro à modifier serait, à mon avis celle-ci "Email_Via_Groupwise", or elle n'apparait pas (à moins que j'ai mal lu)
3 - ma proposition est de passer en direct sans boite gmail, outlook ou autre
4 - tu enverrais un fichier en Zip ou xls, bien sur avec données bidon, ça serait certainement plus facile à lire et, peut-être, je dis bien peut-être je pourrais faire des essais

Bon courage

je confirme c'est ma boite qui a construit cette macro , je ne ml y retrouve pas

ok je te remercie pour ton aide , j 'ai tente plusieurs fois d'envoyer le fichier avec la macro , il est trop lourd

merci

bonsoir a vous
pour envoyer un fichier lourd tu peux utiliser http://cjoint.com/

Pascal