[OL-2007] Envoi Mail sur Login

[ciberju]

Bonjour,

Je fais appel à vos connaissances car je suis un peu perdu.

Lors de tests afin d'utiliser, en access, un code VBA pour envoyer des mails à certaines personnes via leur login, j'obtiens pas mal de soucis.

Voici la partie de coding :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim MonOutlook As Object
Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  If MonOutlook.explorers.Count <= 0 Then
    i = Shell("Outlook", vbMinimizedFocus)
    Set MonOutlook = CreateObject("Outlook.Application")
  End If
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = gwTo
  MonMessage.Subject = gwSubject
  MonMessage.Body = gwMessage
  MonMessage.send
  MonOutlook.ActiveExplorer.WindowState = 1
  Set MonMessage = Nothing
  Set MonOutlook = Nothing

Pour mon exemple, il existe 2 personnes définies dans l'active directory :
- mbx1
- mbx11

Lorsque dans le coding,

Code :

MonMessage.To = gwTo

Je remplace gwTo par mbx11, tout se passe normalement, le mail est bien envoyé.

Lorsque je le remplace par mbx1, j'obtiens le message :

Code :

Outlook does not recognize 1 or more names.

mbx1 et mbx11 corresponde chez nous au login.
C'est à dire à la zone mailNickName dans l'active directory.

Auriez-vous une idée de pourquoi j'obtiens ce message d'erreur ?
Y a-t-il quelque chose à ajouter dans les paramètres en VBA ?

Merci

[lepotier]

gwTo est bien déclaré ?

Code :

Dim gwTo as String