Les destinataires ne reçoivent pas votre message électronique lorsque vous définissez la propriété Recipients.Type sur olOrignator (0) dans Outlook 2003 ou dans Outlook 2002

Symptômes

Lorsque vous envoyez, par programmation, un message électronique à plusieurs destinataires, ces derniers ne le reçoivent pas et vous recevez un message électronique non remis semblable au suivant :
Non remis : <objet>

Certains des destinataires ou tous les destinataires n'ont pas reçu votre message.

Objet :<texte de l'objet>

Envoyé :<date> <heure>



Le ou les destinataires suivants n'ont pu être atteints :



<adresse de messagerie électronique> le <date> <heure>

Ce message n'a pas pu être envoyé. Réessayez d'envoyer le message ultérieurement ou contactez votre administrateur réseau. Erreur [0x80070057-00000000-00000000].

<adresse de messagerie électronique> le <date> <heure>

Ce message n'a pas pu être envoyé. Réessayez d'envoyer le message ultérieurement ou contactez votre administrateur réseau. Erreur [0x80070057-00000000-00000000].

Cause

Ce problème peut se produire lorsque la propriété Recipient .Type est définie avec la valeur 0 pour l'un ou plusieurs de vos destinataires.

Par exemple, ce problème peut se produire si vous exécutez une macro Microsoft Visual Basic pour Applications (VBA) semblable à l'exemple suivant :
Sub TestTypeMailItem()

Dim mai As MailItem
Dim rcps As Recipients
Dim rcp As Recipient

Set mai = Application.CreateItem(olMailItem)
mai.Subject = "Recipient.Type"
Set rcps = mai.Recipients

Set rcp = rcps.Add(Application.Session.CurrentUser.Name)
rcp.Type = 0

'Change "e-mail address" to a valid e-mail address.
Set rcp = rcps.Add("e-mail address")
rcp.Type = 1

'Change "e-mail address" to a valid e-mail address.
Set rcp = rcps.Add("e-mail address")
rcp.Type = 0

mai.Send

End Sub

Résolution

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie explicite ou implicite. Ceci inclut, de manière non limitative, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

Pour résoudre ce problème, modifiez la propriété Recipient .Type pour vos destinataires en lui attribuant l'une des valeurs suivantes :
  • Utilisez la propriété Recipient. Type1 pour les destinataires compris dans la zone À du message électronique.
  • Utilisez la propriété Recipient. Type2 pour les destinataires compris dans la zone Cc du message électronique.
  • Utilisez la propriété Recipient Type3 pour les destinataires compris dans la zone Bcc du message électronique.
Par exemple, modifiez la propriété Recipient .Type dans votre macro VBA tel qu'indiqué dans l'exemple de code suivant :
Sub TestTypeMailItem()

Dim mai As MailItem
Dim rcps As Recipients
Dim rcp As Recipient

Set mai = Application.CreateItem(olMailItem)
mai.Subject = "Recipient.Type"
Set rcps = mai.Recipients

Set rcp = rcps.Add(Application.Session.CurrentUser.Name)
rcp.Type = 1

'Change "e-mail address" to a valid e-mail address.
Set rcp = rcps.Add("e-mail address")
rcp.Type = 2

'Change "e-mail address" to a valid e-mail address.
Set rcp = rcps.Add("e-mail address")
rcp.Type = 3

mai.Send

End Sub
Propriétés

ID d'article : 823917 - Dernière mise à jour : 23 août 2006 - Révision : 1

Commentaires