Bonjour à tous
Voila.. je suis en peu embêter...
Avant j'utilisais cette macro mais malheureusement, elle n'envoyais pas le email à tous les cous... sans avertissement...
Mais maintenent j'utilise une autre manière qui envoie le email a tous les cous... mais la propriété .From ne fonctionne pas... Il utilise ma session actuel
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 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 = ActiveSheet.UsedRange Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") With iMsg Set .Configuration = iConf .To = "abc1@def.com" .CC = "abc2@def.com" .From = """DIRECTION"" <info@def.com>" .Subject = "OBJECTIF VENTE ABC1 - " & Now .htmlBody = RangetoHTML(rng) .Fields("urn:schemas:mailheader:X-Priority") = 1 .Send End With
Si vous connaisser la bonne propriété sa serais apprécier... Malheureusement SenderName est en lecture seul.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim MonAppliOutlook As New Outlook.Application Dim MonMail As Outlook.MailItem Set MonMail = MonAppliOutlook.CreateItem(olMailItem) With MonMail '.Display ' retirer le commentaire si vous voulez que le fenêtre Outlook s'affiche .To = "abc1@def.com" '.Cc = "abc2@def.com" .From = """DIRECTION"" <info@chemineelining.com>" .Subject = "OBJECTIF VENTE ABC1 - " & Now .HTMLBody = RangetoHTML(rng) .Fields("urn:schemas:mailheader:X-Priority") = 1 .Send End With
J'utilise Windows XP Pro avec la suite Office Pro 2002
Merci beaucoup!
Partager