Ouvrir Outlook sans envoyer le mail

**HDU71000** · 06/04/2017, 01h16

Bonjour,

j'ai une question (encore ! ).

Je sais comment via un module envoyer un mail via Outlook en passant par vba, de cette manière :

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
 
 
  'envoi du mail
 
  'on déclare les variables de l'objet Outlook
  Dim MonOutlook As Object
  Dim MonMessage As Object
 
  'Set MonOutlook = New Outlook.Application
  'Set MonMessage = MonOutlook.CreateItem(0)
 
  'on déclare les champs de l'e-mail (de, à, cc, cci, objet, contenu)
 
 ' MonMessage.To = ""
  MonMessage.Bcc = prmlistedestinataires 'variable au préalablement définie
  MonMessage.Subject = ""
  MonMessage.body = ""
 
 
 
  ' on libère toutes les variables déclarées...
 
  Set MonOutlook = Nothing
  Set MonMessage = Nothing
 
 
 
   ' Un petit message de confirmation
  MsgBox "Opération terminée !", vbInformation,
 
 
 End Sub

Je souhaiterais un nouveau message Outlook qui s'ouvre, sans que celui-ci ne parte.

Est-ce possible ?

Car là, le message part sans même que Outlook ne soit ouvert.

Merci.

A+

**HDU71000** · 06/04/2017, 16h55

En fait,

je souhaiterais que Outlook s'ouvre, et que la liste des destinataires soient remplie automatiquement, depuis des données de ma base Access.

Merci

**Oliv-** · 07/04/2017, 12h34

Bonjour,

Les lignes de doivent pas être commentées pour que cela marche

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
 
 
  'envoi du mail
 
  'on déclare les variables de l'objet Outlook
  Dim MonOutlook As Object
  Dim MonMessage As Object
 
  Set MonOutlook = createobject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
 
  'on déclare les champs de l'e-mail (de, à, cc, cci, objet, contenu)
 
 ' MonMessage.To = ""
  MonMessage.Bcc = prmlistedestinataires 'variable au préalablement définie
  MonMessage.Subject = ""
  MonMessage.body = ""
 
MonMessage.display
 
  ' on libère toutes les variables déclarées...
 
  Set MonOutlook = Nothing
  Set MonMessage = Nothing
 
 
 
   ' Un petit message de confirmation
  MsgBox "Opération terminée !", vbInformation,
 
 
 End Sub

voici un autre exemple plus détaillé (il faut une référence à MICROSOFT OUTLOOK 1X.0 OBJECT LIBRARY)
sinon il faut déclarer les CONSTANTES outlook (olMailItem, olTo 'olBCC, olCC, olOriginator ou olTo etc..)

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
Private Sub ExempleNewMail()
 
    Dim appOutlook As Outlook.Application
    Set appOutlook = Outlook.Application
    Dim MESSAGE As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
 
    Set MESSAGE = appOutlook.CreateItem(olMailItem)
    With MESSAGE
        .Subject = "Mon Objet"
 
        'Soit on ajoute un Corps en TEXTE BRUT
        .BodyFormat = olFormatPlain
        .Body = "Voici le coprs du Mail" & vbCr & " A la ligne"
 
        'Soit on ajoute un Corps en HTML
        .BodyFormat = olFormatHTML
        .HTMLBody = "<html><body> <font face=""arial""><p>Bonjour,</p><p>Ceci est un exemple de Message HTML</p><p>Il faut utiliser des balises HTML pour formater le texte.</p><p>En <strong>gras</strong>, <em>Italic</em>, <u>Souligné</u></p><BR><p>Je suis passé à la ligne</p><p>Voici un lien hypertexte.</p>" & _
                    "<a href=""mailto:Joe.User@MyCompany.com"">Joe User</a></font></body></html>"
 
        'Ajout d'un destinataire principal
        Set objRecipient = .Recipients.add("toto@toto.com")
        objRecipient.Type = olTo    'olBCC, olCC, olOriginator ou olTo.
        objRecipient.Resolve
 
        'Ajout d'un destinataire en copie
        Set objRecipient = .Recipients.add("titi@toto.com")
        objRecipient.Type = olCC    'olBCC, olCC, olOriginator ou olTo.
        objRecipient.Resolve
        '
        'Ajout d 'une PJ
        Dim MaPJ
        MaPJ = "c:\temp\monPDF.PDF"
        'on verifie d'abord qu'elle existe.
        If DIR(MaPJ) <> "" Then
            .Attachments.add MaPJ
        End If
 
        'ajout ar lecture
        .ReadReceiptRequested = True
 
        'Soit je l'affiche
        .Display
        'Soit je l'envoi
        '.Send
    End With
End Sub

**HDU71000** · 07/04/2017, 21h26

Super !

Merci, j'avais oublié d'enlever les ' pour les commentaires dans mon c/c, mais cela ne fonctionnait pas non plus.

Ce qu'il me manquait c'était :

Code :

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

MonMessage.display

Grannnnddd merci à toi.

A+

Ouvrir Outlook sans envoyer le mail

VBA Outlook

Discussions similaires

Partager

Partager