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 :
sans utiliser CDO, est-ce possible ?
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
Merci d'avance.
Partager