Envoi d'un message sans Outlook [Résolu]

[AANDRIEUX16]

Bonjour à tous,
je travaille sous Access 2003 avec pour chaque poste client un runtime Access 2003. J'utilise VBA dans plusieurs programmes Access pour envoyer en automatique des messages à partir d'Outlook 2003 (configuré pour fonctionner avec Exchange 2003). Mon problème est que je vais devoir migrer mon environnement serveur et que je ne vais plus avoir de licence Outlook pour mes postes clients (passage de SBS 2003 qui intégrait une licence Outlook à SBS 2011 qui n'en a plus).
Ma question est donc : existe-t'il un moyen d'envoyer un message à partir d'un programme sans Outlook et si oui comment ? J'ai besoin d'envoyer des messages avec pièce jointe.
J'ai regardé sur le forum mais je n'ai pas vu de réponse claire.
Merci d'avance pour votre aide.

Anthony.

[reedy]

Bonjour,
Utilise la biblio CDO. C'est une technique qui permet denvoyer un mail smtp sans avoir besoin dun client de messagerie comme Outlook.
voici une discussion sur la question:
http://www.developpez.net/forums/d10...ctionne-excel/
cordialement

[AANDRIEUX16]

Merci pour ce lien très utile. Si quelqu'un a besoin du code voici donc ce que ça donne :
1) déclarer ces 2 fonctions dans un module

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
Function SendMailCDO(expediteur As String, destinataire As String, _
 objetmessage As String, corpsmessage As String, Optional piecejointe As String)
 
Dim Cdo_Message As New CDO.Message
Set Cdo_Message.Configuration = GetSMTPServerConfig()
 
With Cdo_Message
    .To = destinataire
    .From = expediteur
    .Subject = objetmessage
    .TextBody = corpsmessage
    .AddAttachment (piecejointe)
    .Send
End With
 
Set Cdo_Message = Nothing
 
End Function
Function GetSMTPServerConfig() As Object
Dim Cdo_Config As New CDO.Configuration
Dim Cdo_Fields As Object
Set Cdo_Fields = Cdo_Config.Fields
 
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "10.0.0.2"
.Item(cdoSMTPServerPort) = 25
.Update
End With
 
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
 
End Function

2) utiliser la fonction suivante pour l'envoi du message :

Code :

Call SendMailCDO("expediteur@test.fr", "destinataire@test.fr", "test sujet", "test corps du message", "chemin fichier joint")