Discussion :

[lemoine2]

Bonjour,

Je suis completement débutant en VBA sur outlook, mais bon en regardant le faq et différente discussion j essai de bidouiller des choses.

J essai d automatiser mon suivi de projet

1 - Je copie le mail concerné avec une macro sur mon DD en choissant le dossier avec la fentre parcourir. OK cela fonctionne grace a different code trouvé sur forum merci
2 - Enregistrer les pieces jointe du mail dans un fichier spécifique - OK

3 - Mise a jour d un classeur excel a la premiere ligne vide avec les infos suvante :

Choix du classeur excel a remplir avec la fenetre parcourir:

Copier dans la premiere ligne vide de la feuil1 colonne B les info suivante.

Bx : Date
Cx : Heure
Dx : De
Ex : CC
Fx : Objet
Gx : Nom PJ

Si plusieurs destinataire ou pj séparer les nom part des points Virgule.


Donc pour cette fonction je n ai trouver que le code du faq

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
Sub EcritDansExcel()
Dim XlApp, XlClas
    'Création d'un Excel
    Set XlApp = CreateObject("Excel.Application")
    'Ouverture du classeur
    Set XlClas = XlApp.Workbooks.Open("C:\Users\Utilisateur\Desktop\essai.xls")
    'Ecriture d'une valeur en A1 de Feuil1
 
    With XlClas.Worksheets("Feuil1")
    Ligne = .Range("A65536").End(-4162).Row + 1
    .Range("A" & Ligne).Value = "toto"
    End With
 
    'Sauvegarde des modifications et fermeture du classeur
    XlClas.Close True
    'On quitte Excel
    XlApp.Quit
    'On libère la mémoire des variables
    Set XlClas = Nothing
    Set XlApp = Nothing
End Sub

Merci de votre aide

[lemoine2]

Apres d autre recherche sur le forum j ai un debut de reponse

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
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub InfoSelection()
'---------------------------------------------------------------------------------------
' Procédure : InfoSelection
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Date      : 06/05/2008
' Détail    : Information sur le message sélectionné de la boîte de réception
'---------------------------------------------------------------------------------------
'
'Déclaration des Objets et variables
    Dim MonApply As Outlook.Application
    Dim MonMail As Outlook.MailItem
    Dim MonNSpace As Outlook.namespace
    Dim FldDossier As Outlook.Folder
    Dim strInfos As String
 
    'Instance des Objets
    Set MonApply = Outlook.Application    'Application Outlook
    Set MonNSpace = MonApply.GetNamespace("MAPI")    'Banque MAPI
    Set FldDossier = MonNSpace.GetDefaultFolder(olFolderInbox)    'Dossier boîte de réception
    'Initialisation de la chaîne de caractères
    strInfos = ""
    'Boucle afin de parcourir l'ensemble des E-mails présents dans le dossier Boîte de réception
    For i = 1 To FldDossier.Items.Count
        'instancie le mail suivant la valeur de la boucle
        Set MonMail = FldDossier.Items(i)
        'Test sur le sujet si égale à Invitation
        If MonMail.Subject = "Invitation" Then
            'Récupère les diverses informations du Mail ayant pour sujet Invitation
            With MonMail
                strInfos = "Expéditeur : " & .SenderEmailAddress
                strInfos = strInfos & vbCr & "Destinataire(s) : " & .To
                strInfos = strInfos & vbCr & "Date de réception : " & .ReceivedTime
            End With
            'Affichage du résultat
            MsgBox strInfos
        End If
    Next i
 
    'Vide des instances
    Set MonApply = Nothing
    Set MonNSpace = Nothing
    Set FldDossier = Nothing
    Set MonMail = Nothing
 
End Sub

Maintenant faut que j adapte les deux code a mon besoin

[lemoine2]

Apres d autre recherche je comprend qu il fqut utiliser les fonction mailitem.

ensuite je les met dans une boucle de se type:

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
For Each oMail In myFolder.Items
        'SendUsingAccount => Outlook 2007
 
    'Création d'un Excel
    Set XlApp = CreateObject("Excel.Application")
    'Ouverture du classeur
    Set XlClas = XlApp.Workbooks.Open("C:\Users\Utilisateur\Desktop\essai.xls")
    'Ecriture d'une valeur en A1 de Feuil1
 
    With XlClas.Worksheets("Feuil1")
    Ligne = .Range("A65536").End(-4162).Row + 1
    .Range("A" & Ligne).Value = "NomExpéditeur : " & oMail.SenderName & " - " & _
        "Type : " & oMail.SenderEmailType
 
    End With
    Next oMail

Par contre maintenant je voudrais faire cela nom sur un dossier mais sur un ou des mail selectionnés

Est ce possible