Bonjour,

moi j'ai toujours le message d'Outlook :
Un programme tente d'envoyer un message électronique en votre nom...

j'ai Outlook 2010 et Excel 2010

mon code VBA EXCEL :
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
Set MyMail = MonOutlook.CreateItem(olMailItem)
MyMail.To = adresse_mail
    ' MyMail.CC = adresse_mail                  'ici on peut mettre les adresse en copie
MyMail.Subject = Feuil1.Cells(num_ligne, 2)     ' Sujet en colonne 2
MyMail.Body = Feuil1.Cells(num_ligne, 3)        ' Message en colonne 3
MyMail.Send                                     ' envoi du message
MyMail.Display
MyMail.SendKeys "^{ENTER}"
 
' Essais ci-dessous infructueux ....
'MyMail.SendKeys "{TAB}", True
'MyMail.SendKeys "{TAB}", True
'MyMail.SendKeys "{ENTER}", True
' SendKeys "%{s}", True                           'Envoie le mail sans confirmation
 
Set MonOutlook = Nothing
sans utiliser CDO, est-ce possible ?
Merci d'avance.