envoi mail outlook avec vba excel

Version imprimable

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:

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.

23/07/2012, 10h21
kiki29

Salut, voir ici
23/07/2012, 12h06
fazpedro

@ kiki29 :
j'ai oublié de préciser : "sans utiliser de logiciel externe"
Merci.
23/07/2012, 14h28
kiki29

Salut, je précise une chose : je n'utilise pas OutLook, donc fais une recherche sur CDO
23/07/2012, 16h09
fazpedro

Citation:

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.
23/07/2012, 16h19
kiki29

Re, bis repetita placent : fais une recherche sur CDO
25/07/2012, 12h13
fazpedro

Bonjour,

Sans CDO (que je ne peux pas utiliser...) ni logiciel externe, c'est possible ou pas ?
Merci.
25/07/2012, 13h04
kiki29

Salut, désolé : pas de bras pas de chocolat.
25/07/2012, 13h10
Mr_Exal

Si tu veux j'ai deux procédures qui permettent de convertir une plage de données Excel en HTML puis d'envoyer ce mail avec l'html comme corps de message. Il ne me semble pas que ça utilise CDO.
25/07/2012, 15h06
fazpedro

Citation:

Envoyé par Zweet

Si tu veux j'ai deux procédures qui permettent de convertir une plage de données Excel en HTML puis d'envoyer ce mail avec l'html comme corps de message. Il ne me semble pas que ça utilise CDO.

> Je suis preneur ! :D

Citation:

Envoyé par fazpedro

> Je suis preneur ! :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Envoi_Mail_Feuille()
    Dim rng As Range 
    Dim OutApp As Object 
    Dim OutMail As Object 
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    Set rng = Feuil1.UsedRange  'On définit la plage de données à convertir en HTML
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .HTMLBody = RangetoHTML(rng) 'On appelle la fonction RangetoHTML qui va convertir la plage en données HTML 
        .Save '.Save pour sauvegarder le mail dans les boruillons, .send pour l'envoyer
    End With
    On Error GoTo 0
    With Application
        .EnableEvents = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Function RangetoHTML(rng As Range)
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") &  ".htm"  
    rng.Copy 'on copie la plage de données
    Set TempWB = Workbooks.Add(1) 'On créer un classeur temporaire qui reçoit la plage de données
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With
 
    'On exporte le classeur temporaire en html
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
 
    Set fso = CreateObject("Scripting.FileSystemObject") 'on créer l'objet de script
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")
 
    TempWB.Close savechanges:=False
 
    'On supprime les fichiers temporaires résiduels
    Kill TempFile
 
    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
 
End Function

Enjoy ! (en espérant que ça t'aide).

26/07/2012, 09h03
fazpedro
Merci Zweet :mouarf:

je n'ai plus de message de sécurité d'Outlook et les messages arrivent bien,

il me reste quelques points à voir, si vous avez une idée...

(1) Je n'ai pas d'expéditeur dans Outlook
j'ai essayé le code ci-dessous mais sans résultat... :
Code:

1 2 With OutMail .From = "Expediteur" 'Expediteur
(2) Concaténer deux cellules de texte
je récupère la valeur du texte dans la colonne 3 d'Excel

Code:

Set rng = Feuil1.Cells(num_ligne, 3) 'On définit la plage de données à convertir en HTML

je souhaite récupérer deux valeurs : la colonne 3 et la colonne 4,
j'ai essayé les codes ci-dessous sans résultat :
Code:

1 2 3 4 5 6 7 ' essai 1 Set rng = Feuil1.Cells(num_ligne, 3) & Feuil1.Cells(num_ligne, 4) ' essai 2 Set rng = Range("Feuil1.Cells(num_ligne, 3):Feuil1.Cells(num_ligne, 4)")
Encore merci !
26/07/2012, 13h30
fazpedro

Citation:

je n'ai plus de message de sécurité d'Outlook et les messages arrivent bien,

En fait, ils arrivent mais en tant que "brouillon" et ne sont pas envoyés au destinataire...
26/07/2012, 13h35
Mr_Exal

Citation:

Envoyé par fazpedro

En fait, ils arrivent mais en tant que "brouillon" et ne sont pas envoyés au destinataire...

.send pour les envoyer

Expéditeur c'est le mail de la personne (pour mon appli je n'en met pas).

pour la variable range, je pense que vous pouvez la définir en nommant la plage directement dans Excel.
26/07/2012, 13h41
fazpedro

Désolé Zweet
j'ai mis :

Code:

.Send

=> Résultat : le mail est envoyé mais toujours avec le message de confirmation Outlook :
"Un programme tente d'envoyer un message électronique en votre nom..."

Retour à la case départ !:cry:
26/07/2012, 15h24
Mr_Exal

Zut ... Je pensais que ça fonctionnerai ...
Désolé :oops:
26/07/2012, 17h34
Fvandermeulen

Salut,

Pour ne pas avoir le message de sécurité il faut utiliser la méthode CDO ou Sendkeys (mais beaucoup moins fiable car dépendant du temps de réponse)

Une petite recherche via le forum devrait te donner quelques exemples.

A+
27/07/2012, 08h44
fazpedro

Bonjour Fvandermeulen

Pour utiliser CDO :
Le problème est que je passe par un proxy et que je n'ai pas toutes les informations relatives au SMTP...:cry:
30/09/2014, 09h49
fazpedro

Bonjour,
J'ai enfin trouvé la parade pour ne plus avoir le message :

Sous Windows7 :
> Démarrer
>> Panneau de configuration
>>> Centre de maintenance
>>>> Sécurité
Désactiver "Protection contre les logiciels espions et programmes indésirables"

C'est nickel !
30/09/2014, 10h27
Mr_Exal

Merci pour ton retour, en espérant que ça aide d'autres utilisateurs !