mail access avec thunderbird

[fabrice.bonnet]

J'ai besoin de réaliser un envoi d'un mail avec adresse mail, objet et message simple à partir d'une base access sur des postes où outloock n'est pas installé
Avec Outlook aucun problème mais avec thunderbird je bloque
Merci de vos conseils

Fabrice

[Maxence HUBICHE]

Je suggère une solution sans usage des SendKeys, ce qui est une très mauvaise idée (si un programme passe en premier plan, c'est lui qui se prend les sendkeys)


Dans un module de classe :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
'==============================================================================
'MODULE D'ENVOI D'EMAIL en CDO
'
' Auteur    : Maxence Hubiche
' Date      : 11/10/2007
' Email     : <a href="mailto:mhubiche@redaction-developpez.com">mhubiche@redaction-developpez.com</a>
' Copyright : Ce code est libre de copie/recopie/modification, dans la mesure où
'               ces quelques lignes de commentaires restent inchangées
' Remarques :
'               1- Il n'est pas utile de cocher la référence Microsoft CDO
'               2- Vous devez avoir un profil de défini dans le panneau de
'                   configuration / Courrier
'===============================================================================
 'Variables pour les objets CDO
 Private m_oSession             As MAPI.Session
 
 'Variables de configuration de l'envoi
 Private m_strProfile           As String
 
 'Constantes pour e module
 Const con_NON_DEFINI           As String = "Non défini"
 
'===============================================================================
' PROPRIETE PROFIL (Lecture/Ecriture)
' Il faut ici déterminer le nom du profil qui procède à l'envoi
'===============================================================================
 Property Get Profil() As String
    If m_strProfile = "" Then
        Profil = conNON_DEFINI
    Else
        Profil = m_strProfile
    End If
 End Property
 Property Let Profil(NomProfile As String)
    m_strProfile = NomProfile
 End Property
 
 '===============================================================================
' METHODE SENDMESSAGE (Sub)
' Envoie le message en fonction des paramètres de login
'===============================================================================
 Public Sub SendMessage(Objet As String, Contenu As String, destinataires As String)
    'Variable pour le message
    Dim oMsg                As Object
    Dim oDest               As Object
    Dim iDest               As Long
    'Ouverture de la session
    m_oSession.Logon m_strProfile, , , False
    'Création du nouveau message
    Set oMsg = m_oSession.Outbox.Messages.Add
    With oMsg
        ' Définition du contenu du message
        .Subject = Objet
        .Text = Contenu
        '
        ' Ajout d'un objet destinataire à la collection omsg.Recipients
         Set oDest = oMsg.Recipients.Add
        ' Définition des propriétés de l'objet destinataire.
         oDest.Name = CStr(destinataires)
        'oDest.Resolve
 
        ' Envoi du message. Si showDialog a la valeur False,
        ' le message est envoyé sans être affiché
        ' et sans nécessiter l'intervention de l'utilisateur.
        ' Si showDialog a la valeur True,
        ' le message est affiché et l'utilisateur doit activer
        ' l'envoi à partir de la boîte de dialogue du message.
        .Send showDialog:=False
    End With
 End Sub
Private Sub Class_Initialize()
    ' Création de l'objet session.
    Set m_oSession = CreateObject("mapi.session")
End Sub
Private Sub Class_Terminate()
    'Fin de la session
    m_oSession.Logoff
    ' Réinitialisation
    Set m_oSession = Nothing
End Sub

Comment l'utiliser ?
Voici un exemple :

Code :

1
2
3
4
    Dim x As New Email
    x.Profil = "mh"
    x.SendMessage "test", "oulalala!", "<a href="mailto:m@t.com">m@t.com</a>"
set x=nothing