Discussion :

[jabranejb]

Bonjour;
j'ai une macro Excel dont laquelle j'ai réalisé une fonction pour envoyer un mail ; sa fonctionne tres bien sur mon PC mais pas le cas sur le serveur: voici la fonction du macro:
''''''''''''''''''

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
Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
   strbody = "Bonjour" & vbNewLine & _
              "" & vbNewLine & _
              " le document vous souhaiter l'exporter a été envoyer le " & Now & " par " & Environ("UserName") & vbNewLine & vbNewLine & _
              "Ce mail est généré automatiquement" & vbNewLine & _
               "" & vbNewLine & _
                "" & vbNewLine & _
              "Veuillez ne pas repondre" & vbNewLine & _
              ""
  '  On Error Resume Next
    With OutMail
        .To = mail
        .Cc = ""
        .Bcc = ""
        .Subject = nom
        .Body = strbody
        .Attachments.Add (sPath & sName & "\" & nom & ".doc")
         'ou .display pour un envoie accepter'
        .Send
    End With
    On Error GoTo 0
     Set OutMail = Nothing
    Set OutApp = Nothing

[Jean-Philippe André]

Salut,

un "ça ne marche pas sur le serveur", je trouve cela personnellement très léger comme indication pour qu'on te propose des solutions

L'outil Outlook est-il installé sur ton serveur ?
Une erreur est-elle générée lorsque tu le lances sur ton serveur ?

Dis nous en un peu plus que cela pour espérer de l'aide de notre part

[jabranejb]

Merci de prendre temp pour me repondre ;
je possede un serveur SMTP qui declanche la macro parfaitemrnt mais je reçoi aucun message d erreur !! la meme macro fonctionne sur ma machine et je reçoi des mail reguliairement mais sur le serveur , sa fonctionne mais je reçoi aucun mail ni des messages d erreurs.

[Oliv-]

Code :

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

1
2
 
              " le document vous souhaiter l'exporter a été envoyer le " & Now &

Bonjour Jabrane,
Je l'avais vu sur ton précédent post sans toutefois te le dire mais ce serait plus correcte si tu écrivais

Code :

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

1
2
 
              " le document que vous souhaitez exporter a été envoyé le " & Now &

Il faudrait que tu sois plus précis, car dans ton précédent post tu disais que ta macro se trouvait dans PERSO.xls et elle se déclenche selon le nom du classeur.

Qu'est ce qui est sur le serveur ? ta macro, ton classeur, le lancement d'excel ? si Outlook n'est pas installé et configuré sur ton serveur il faut intégrer un envoi via CDO