Discussion :

[mophets]

Bonjour,

J'ai une macro sur excel qui demande à une macro d'outlook d'envoyer un mail :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Mail_small_Text_Outlook(element, adresse)
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
 
    With OutMail
        .To = "xxx@xxx.fr"
        .CC = ""
        .BCC = ""
        .Subject = adresse & " - " & element
        .Body = "" 'strbody
        .Save
 
    End With
    Dim strID As String
    strID = OutMail.EntryID
    Call OutApp.send_OutMail(strID)
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub

Outlook:

Code :

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

1
2
3
4
5
6
Sub send_OutMail(StrID As String)
 
   Dim OutMail
   Set OutMail = Application.GetNamespace("MAPI").GetItemFromID(StrID)
   OutMail.Send
End Sub

J'ai bien pris soin de créer un certificat dans outlook.

Tout fonctionne bien, mais si je ferme outlook et y revient, qd je lance la macro d'excel, je vois le mail arriver dans les brouillons de outlook et n'est pas envoyé.
Là où c'est encore plus curieux, si j'ouvre VBA de OL, fais une quelconque modif du code, quitte à la supprimer la modif, et même sans sauvegarder ensuite, là ça refonctionne...

j'avoue que je ne saisis pas très bien.
Si qqun avait une piste. Désolé si des info manquent, je ne suis pas encore très aguéri à VBA, n'hésitez pas à demander.

Merci d'avance

Stéph

[mophets]

Bon, mon sujet a pas l'air de déchainer les passions.
Je continue à chercher, mais sans plus de succès.

En fin de compte la macro marche pas à l'ouverture de outlook (le mail est stocké dans les brouillons), et ça refonctionne à partir du moment ou j'ouvre l'editeur de VBA et double clique sur le module concerné
ça ne fait évidemment pas partir le mail qui a échoué dans les brouillons, mais les mails d'après partent bien, eux.

La feinte serait un OutMail.Send, et d'utiliser ClickYes pour valider le message de Outlook, mais je trouve ça tellement peu élégant...