Discussion :

[fazpedro]

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.

[kiki29]

Salut, voir ici

[fazpedro]

@ kiki29 :
j'ai oublié de préciser : "sans utiliser de logiciel externe"
Merci.

[kiki29]

Salut, je précise une chose : je n'utilise pas OutLook, donc fais une recherche sur CDO

[fazpedro]

kiki29 Salut, je précise une chose : je n'utilise pas OutLook, donc fais une recherche sur CDO

Justement moi j'utilise Outlook 2010 et je cherche à automatiser des mails depuis Excel... sans demande de confirmation unitaire.

[kiki29]

Re, bis repetita placent : fais une recherche sur CDO