Envoyer mail depuis un serveur par une macro excel

Version imprimable

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:

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

28/11/2012, 12h31
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 :mrgreen:

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 :ccool:
28/11/2012, 13h50
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.
28/11/2012, 14h25
Oliv-
Citation:
Envoyé par jabranejb

Code:

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:

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