Discussion :

[Patenkaly]

Bonjour,
Je souhaite envoyer, depuis Excel, à une liste de diffusion un mail. Après pas mal de recherche, j'ai réussi à écrire le code ci-dessous.
Problème (et là je sèche vraiment) : la commande GetObject(, "Outlook.Application") se met en erreur lorsque Outlook est ouvert (Erreur d'exécution '429 Un composant ActiveX ne peut pas créer d'objet). Alors qu'en parallèle, la commande CreateObject("Outlook.Application") fonctionne très bien lorsque Outlook est fermé. Pour info, j'ai bien activé Microsoft Outlook 14.0 Object Library.

Pourriez vous m'aider car les paramétrages réseau font que je suis obligé de saisir mon MDP Outlook à chaque ouverture.

Merci d'avance pour votre aide

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub Envoi_mail_dd()
' Envoi mail
 
    Dim OutApp As Object
    Dim OutMail As MailItem
    Dim cell As Range
    Dim ChDir As String
    Dim NomFichier As String
    Dim Site As String
    Dim NomPersonne As String
 
 
    Application.ScreenUpdating = False
    Worksheets("Liste de dif").Activate
 
    ChDir = Application.ActiveWorkbook.Path
    Site = "Pusignan"
    NomPersonne = "Suivi des demandes"
    NomFichier = NomPersonne & "_" & Site
 
 
    On Error GoTo Open_Outlook
    Set OutApp = GetObject(, "Outlook.Application")
 
Open_Outlook:
        If Err <> 0 Then
            Set OutApp = CreateObject("Outlook.Application")
            bstarted = True
        End If
 
 
    'On Error GoTo cleanup
    For Each cell In Sheets("Liste de dif").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And Cells(cell.Row, "F").Value = "lyon" Then
            Set OutMail = OutApp.CreateItem(olMailItem)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Suivi des demandes au " & Format(Now, "dd-mmmm-yyyy")
                .Body = "Bonjour " & _
                        vbNewLine & vbNewLine & _
                        "Veuillez trouver en pièce jointe l'état d'avancement du traitement de vos demandes." & _
                        vbNewLine & vbNewLine & _
                        "Vous souhaitant bonne réception," & vbNewLine & _
                        "Cordialement." & vbNewLine & vbNewLine & _
                .Attachments.Add (ChDir & "\Archives suivi Dde" & "\" & NomFichier & "_" & Format(Now, "yy-mm-dd") & ".pdf")
                .Send   'à remplacer par Send / display
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell
 
'Envoi mail => cleanup:
    Set OutApp = Nothing
 
    Application.ScreenUpdating = True
    Worksheets("Suivi operation").Activate
 
End Sub

[joe.levrai]

Bonjour,

les applications office sont-elles installées en "lourd" sur le PC, ou bien ce sont des applications lancée par le biais de connexion citrix (ou autre de ce genre) ?

j'ai déjà rencontré le problème en environnement Citrix, le GetObject plantait si l'application Excel et Outlook n'étaient pas sur le même serveur Citrix.

En sortant la Machine Virtuelle (qui faisait tourner ces procédures) de l'environnement Citrix (utilisation d'un pack office en lourd) je n'ai plus de souci avec le GetObject

[Patenkaly]

Bonjour,
Désolé pour la réponse tardive.
Je confirme que le pack office est installé en lourd sur mon poste.
En revanche, une bizarrerie, je ne peux activer Outlook Object library qu'en ouvrant Excel en mode administrateur.

En tout cas merci pour ta réponse.

[joe.levrai]

Bonjour,

je ne sais pas si c'est lié, mais ton projet est en liaison hybride, il y a du précoce et du tardif. Il faut choisir l'un des deux et pas faire cohabiter les deux


- liaison précoce : tu dois activer la librairie spécifique et tu peux ainsi typer te variables lors de la déclaration

Code :

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

1
2
3
4
5
6
Sub LiaisonPrecoce()
' on est obligé d'activer la référence Outlook X.XX
Dim OlApp As Outlook.Application
Dim Olnmspace as Outlook.NameSpace
Dim UnDossier as Outlook.Folders
Dim UnMail as Outlook.MailItem

- liaison tardive : tes objets sont déclarés et typés "As Object", c'est lors de leur instanciation que tu indiquera à VBA le bon type, et tu n'as pas besoin de gérer la librairie

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
Sub LiaisonTardive()
' pas besoin d'activer la référence Outlook
Dim OlApp As Object          ' Outlook.Application
Dim Olnmspace as Object   ' Outlook.NameSpace
Dim UnDossier as Object    ' Outlook.Folders
Dim LaBoiteMail as Object  ' Outlook.Store
Dim UnMail as Object         ' Outlook.Mailitem
 
' on tente le GetObject
On Error Resume Next: Set OlApp = GetObject(, "Outlook.Application"): On Error GoTo 0
 
' s'il échoue (Outlook fermé par exemple), on passe en CreateObject (ça allumera Outlook)
If OlApp Is Nothing Then Set OlApp = CreateObject("Outlook.Application")
 
' la banque d'information MAPI
Set OlNmSpace = OlApp.GetNamespace("MAPI")
 
' ici, on est à la racine de la boite mail "toto"
Set LaBoiteMail = OlNmSpace.Stores.Item("toto")
 
' ici, on est dans le premier sous-dossier de "Boite de réception"
Set LeDossier = LaBoiteMail.GetDefaultFolder(6).Folders(1)  
' Attention : en liaison tardive, les constantes textuelles doivent être remplacées par des constantes numériques
' ici par exemple, la constante olFolderInbox est remplacée par sa valeur numérique 6
 
' ici, c'est le premier mail du dossier
Set UnMail = LeDossier.Items(1)

En passant en liaison tardive, tu vas du coup contourner le problème de référence que tu ne peux pas cocher

[Invité]

bonjour,
tu te fiche de ça! si tu utilise la méthode CreateObject l'instance disparaîtra après envoi du mail (.send) et ton mail apparaîtra dans l'instance ouverte comme élément envoyé!