Erreur d'exécution lors de l'appel de la méthode Send

Version imprimable

19/06/2017, 16h46
J1

Erreur d'exécution lors de l'appel de la méthode Send

Bonjour à toutes et à tous,

dans le cadre d'une procédure d'envoi de mails, je crée un objet de type Outlook.MailItem, je modifie ensuite ses propriétés HTMLBody, Subject, To et SendUsingAccount et j'exécute enfin sa méthode Send.
Dans 90% des cas, tout se passe bien mais pour certaines adresses de destinataires, j'obtiens le message d'erreur suivant lors de l'appel de la méthode Send :

Citation:

Erreur d'exécution '-2147024809 (80070057)':
Impossible de terminer l'opération. Une ou plusieurs valeurs de paramètres ne sont pas valides.

Si je souhaite alors consulter les propriétés HTMLBody, Subject, To et SendUsingAccount définies plus haut dans le code, je me rends compte que la propriété To n'est plus renseignée (alors qu'elle l'était bien juste avant l'appel de la méthode Send).
Après un certain temps passé à essayer de comprendre le pourquoi du comment, je me suis rendu compte que cela se produisait principalement dans le cas où l'adresse mail du destinataire était déjà présente dans les "Contacts suggérés" du carnet d'adresses du compte Outlook.
Verriez-vous une explication à cela ? Outlook tenterait-il de résoudre à l'aide du carnet d'adresses l'adresse indiquée dans le To ?

Si vous voyez une explication (même totalement différente de celle que j'évoque) et surtout une solution (qui ne nécessite pas de purger les contacts suggérés du carnet d'adresses), n'hésitez pas !

Merci d'avance pour vos lumières.
20/06/2017, 09h42
Oliv-

Bonjour,
Tu peux vérifier tes destinataires avant l'envoi,
avec

Code:

OMail.recipients.resolveAll

voici l'exemple de l'aide :f1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CheckRecipients()
    Dim MyItem As Outlook.MailItem
    Dim myRecipients As Outlook.Recipients
    Dim myRecipient As Outlook.Recipient 
 
    Set myItem = Application.CreateItem(olMailItem)
    Set myRecipients = myItem.Recipients
    myRecipients.Add("Aaron Con")
    myRecipients.Add("Nate Sun")
    myRecipients.Add("Dan Wilson")
    If Not myRecipients.ResolveAll Then
        For Each myRecipient In myRecipients
            If Not myRecipient.Resolved Then
                MsgBox myRecipient.Name
            End If
        Next
    End If
End Sub

20/06/2017, 10h34
J1

Merci pour ta réponse, Oliv.
Néanmoins, en admettant que ma théorie soit correcte, ce dont j'aurais besoin est de m'assurer qu'Outlook n'essaie pas de résoudre l'adresse que j'indique dans le To.
20/06/2017, 11h49
Oliv-

Pourquoi ?
20/06/2017, 13h03
J1

Comme je l'indiquais dans mon premier post, l'erreur semble survenir lorsque l'adresse mail mentionnée dans le To reprend celle d'un des "contacts suggérés" du carnet d'adresses. Partant de là, je me dis que l'erreur serait peut-être liée à une tentative de résolution d'adresse qu'Outlook ferait.

Mais je reste évidemment ouvert à toute autre explication ! ;)
20/06/2017, 13h52
Oliv-

C'est pas impossible mais il faut les identifier pour les corriger
20/06/2017, 18h52
J1

Mais donc, empêcher Outlook de résoudre ce qui est stocké dans la propriété To, c'est possible ? En gros, je voudrais que ce qui est stocké dans la propriété To soit utilisé "tel quel" comme adresse de destinataire lorsque j'appelle la méthode Send.

SAlut,

Je t'ai fait un code pour tester tes contacts suggérés.
en principe s'il y a un bug lors de la résolution sur l'un d'eux il devrait l'afficher

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
Option Compare Text
 
Sub test_suggere()
    Dim MyItem As Outlook.MailItem
    Dim myRecipients As Outlook.Recipients
    Dim myRecipient As Outlook.Recipient
    Dim OL As Outlook.Application
    If UCase(Application) = "OUTLOOK" Then
        Set OL = Application
    Else
        Set OL = CreateObject("outlook.application")
    End If
    Dim Item As Outlook.MailItem
 
    Dim CS As Folder
 
    Set CS = Session.GetDefaultFolder(olFolderSuggestedContacts)
 
    Dim Contact_CS As ContactItem
    MsgBox CS.Items.Count, vbInformation, "Nombre de fiches testées"
    For n = CS.Items.Count To 1 Step -1
 
        If CS.Items(n).Class = olContact Then
            Set Contact_CS = CS.Items(n)
                            If Contact_CS.FullName = "test" Or Contact_CS.FirstName = "test" Then Stop
 
            If Contact_CS.Email1Address <> "" Then
                Set MyItem = OL.CreateItem(olMailItem)
                Set myRecipients = MyItem.Recipients
                myRecipients.Add (Contact_CS.Email1Address)
                If Not myRecipients.ResolveAll Then
                    MsgBox Contact_CS.FullName & vbCr & Contact_CS.Email1Address, vbCritical, "NON RESOLU"
                    Contact_CS.Display
 
                    MyItem.Close olDiscard
                Else
                    MyItem.Close olDiscard
                End If
            End If
        End If
 
    Next n
End Sub

22/06/2017, 16h16
J1

Merci pour ton aide, Oliv. Néanmoins, ce que je cherche à faire, c'est forcer Outlook à respecter ce que j'indique initialement dans la propriété To et qu'il ne cherche donc pas une éventuelle correspondance dans le carnet d'adresses au moment où j'appelle la méthode Send. En d'autres termes, je voudrais qu'il ne cherche pas à résoudre l'adresse que j'indique dans le To.
Mais ça, d'après les investigations que je mène depuis quelques jours, je ne suis pas sûr du tout que ce soit possible...
22/06/2017, 17h14
Oliv-

Bonjour,
J'ai bien compris ta demande, mais je pense que ton problème provient de quelques enregistrements erronés, tu peux faire autrement en envoyant via CDO tes messages mais un moment donné tu retomberas sur le problème.

il faudrait que tu identifies précisément quand ton problème se produit, c'est à dire que tu réussisses à le reproduire !

C'est dans ce sens que je t'ai fait mon précédent code , l'as tu essayé ?