1 pièce(s) jointe(s)
Envoi mail par la boite supplémentaire -> echec
Bonjour,
Sur mon PC, j'ai 2 adresses mails : mon adresse perso et une adresse partagée (pour tous les membres du service) qui est dans la 'boite supplementaire.
Dans Excel en VBA, j'arrive bien à envoyer les mails par mon adresse perso mais je n'arrive pas à utiliser l'adresse partagée (envoi systématique par l'adresse perso) .
Je pense que c'est lié à ma config (en pj).
Dans les tests, il m'indique 1 seul account; 1 seule session et je n'arrive pas à activer la deuxième boite.
Pour info : mon code très basic et embryonnaire :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub SendEmail()
'
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
With olMail
'
.To = "destinataire@xx.com"
.Subject = "Test Didier23"
.Body = "Test envoi de mail23"
'
.Send
'
End With
End Sub |
Merci
Cordialement
Didier