Discussion :

[serge 21]

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 ,

[casefayere]

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 :

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

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

[serge 21]

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

[casefayere]

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

[serge 21]

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

[casefayere]

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

[serge 21]

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

[grisan29]

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

Pascal