Discussion :

[AidezMoiSvp]

Bonjour,

J'ai fouillé un peu sur le forum et j'ai trouvé des choses qui ressemblent à ce que je voudrais faire mais qui ne correspondent pas totalement.

Je voudrais créer un bouton (je sais faire) qui me permettrait d'envoyer vers ma table access :
- les adresses des destinataires et expéditeurs
- la date du mail
- le contenu du mail
(- si possible le nom des pièces jointes)

J'aimerais que mon formulaire outlook me permette de choisir le projet de mon dossier access auquel se rattache le mail.

Je m'explique : je crée actuellement une BDD qui me sert à centraliser toutes les notes, courriers, courriels... relatifs à une affaire.
Pour ce faire, je crée une affaire dans ma table "Affaires" (tblAffaires).
J'ai une table "Courriels" (tblCourriels).

Mes tables sont comprennent les champs suivants :
- tblAffaires : ID_Affaires, Objet...
- tblCourriels : ID_Courriels, ID_Affaires, ObjetCourriel...

J'aimerais donc que mon formulaire outlook liste l'ensemble des affaires de la tblAffaires pour que je puisse récupérer l'ID_Affaires pour l'intégrer dans ma tblCourriels.

Est-ce que j'ai été clair ?

Merci

[Oliv-]

Salut,
A partir de quoi un Email ouvert , selectionné, plusieurs Emails , la boite complète ?

La partie Access, concerne plutot le forum Access !
mais il suffit de faire une requête via adodb sur ta table tblAffaires pour afficher le résultat dans une listbox ou combobox ...

[AidezMoiSvp]

Bonjour,

J'ai déjà bien avancé sur mon projet.
J'ai crée mon formulaire dans outlook, j'arrive à ajouter un enregistrement dans la table access.

Mon plus gros problème : extraire le contenu du mail sélectionné.

Comment faire ?

J'ai essayé plein de truc trouvé à droite à gauche mais ça ne fonctionne pas !

Merci

[Oliv-]

Voir le résultat dans la fenêtre exécution (ctrl+g dans VBE)

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
Sub babaEmail()
'---------------------------------------------------------------------------------------
' Procedure : babaEmail
' Author    : oliv
' Date      : 22/04/2015
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim Oitem As Object
    Dim objMail As Outlook.MailItem
    Dim i
 
    Set Oitem = ActiveInspector.CurrentItem    'désigne l'élément actif càd le mail le contact ou rdv...
    If Oitem.Class = olMail Then
        Set objMail = Oitem
 
        Debug.Print objMail.subject
        Debug.Print objMail.SenderName & " <" & objMail.SenderEmailAddress & ">"
        Debug.Print objMail.To
        Debug.Print objMail.Cc
        Debug.Print objMail.Bcc
        Debug.Print objMail.ReceivedTime
        Dim pj As String
        pj = ""
        For i = 1 To objMail.Attachments.Count
            pj = objMail.Attachments(i).FileName & ";"
        Next i
        Debug.Print pj
        Debug.Print objMail.Body
        'Debug.Print objMail.HTMLBody
    End If
End Sub

Pour les destinataires on peut entre dans le détail en parcourant objMail.recipients

[AidezMoiSvp]

Bonjour Oliv,

Merci pour la réponse.
Cependant le code m'affiche un message d'erreur sur cette ligne :

Code :

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

Set Oitem = ActiveInspector.CurrentItem    'désigne l'élément actif càd le mail le contact ou rdv..

"Variable objet ou variable de bloc with non définie".

[Oliv-]

Il faut qu un émail soit ouvert

[AidezMoiSvp]

Nickel ! ça fonctionne parfaitement !

Merci beaucoup pour ton aide.