Spécification de l'envoi d'un mail

**glooping** · 09/07/2014, 15h09

Bonjour,
Je veux envoyer un mail intra-entreprise mais en spécifiant le destinataire.
Voilà mon code:

Code :

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

1
2
3
4
sujet = "Un nouveau PVNC est finaliser n° " & NumeroQci
chemin = ThisWorkbook.Path & "\"
HyperLien = "mailto:?subject=" & sujet & "&body=Bonjour, %0AUn nouveau ------ ( " & ________& " ) est à compléter. %0A%0AL'outil est sous : file://" & chemin
ActiveWorkbook.FollowHyperlink Address:=HyperLien

Que rajouter?
Merci

**lucasgaetan** · 09/07/2014, 15h35

Voila de quoi je me sert:

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
Dim OutApp              As Outlook.Application
Dim OutMail             As Outlook.MailItem
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "ton text"     'Ajout No Cmd
Dim strHTML As String
        strHTML = ""
        strHTML = strHTML & "<HEAD>"
        strHTML = strHTML & "<BODY>"
        strHTML = strHTML & "ton text"
        .HTMLBody = strHTML
 
        .BodyFormat = olFormatHTM
        .Display
 
    End With
 
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Ne PAS OUBLIER LA REF OUTLOOK

A+

Spécification de l'envoi d'un mail [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager