Bonjour,

J'aimerai pouvoir récupéré mon adresse mail outlook
Code VBA : 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
 
Sub envoi_recap()
 
NB_Mail = Sheets("Mail").Cells(Rows.Count, 1).End(xlUp).Row
 
Dim WorkRng As Range
On Error Resume Next
Sheets("Mail").Activate
 
' Récupérer le nom du fichier de signature
sPath = "C:\Users\toto\AppData\Roaming\Microsoft\Signatures\"
SigString = Dir(sPath & "societe.htm")
If SigString <> "" Then Signature = sPath & SigString  Else Signature = ""
 
Set WorkRng = Sheets("mail").Range("A1:D" & NB_Mail) & Signature
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Item.To = Sheets("sommaire").Range("G1")
    .Item.CC = Sheets("sommaire").Range("G2")
    .Item.Subject = Sheets("sommaire").Range("G3")
    .Item.Send
End With
Application.ScreenUpdating = True
 
End Sub

Auriez-vous une solution ?