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

[fazpedro]

Bonjour,

Sans CDO (que je ne peux pas utiliser...) ni logiciel externe, c'est possible ou pas ?
Merci.

[kiki29]

Salut, désolé : pas de bras pas de chocolat.

[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.

[fazpedro]

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 !

[Mr_Exal]

> Je suis preneur !

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
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 :

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
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).

[fazpedro]

Merci Zweet

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[fazpedro]

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...

[Mr_Exal]

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.

[fazpedro]

Désolé Zweet
j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .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 !

[Mr_Exal]

Zut ... Je pensais que ça fonctionnerai ...
Désolé

[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+

[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...

[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 !

[Mr_Exal]

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