[VBS/Outlook]Envoyer image dans le corp du message
Bonjour,
j'ai ecris un script qui a pour objectif d'envoyer un e-mail via outlook avec une image dans le corp du message (pas en attachement).
La majorite du code fonctionne, mais le resultat n'est pas celui attendu --> l'image est en attachement et pas dans le corp du message.
Mon code ci-dessous...
Quelqu'un a t il une idee ou se situ mon erreur?
par avance merci,
Daniel
Code:
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
'---------------------------------------------------------
' Send an Outlook e-mail with VBscript
'
' May-15th 2008 v1-0
'
' 1st argument is recipients (; is the e-mails separator)
' 2nd argument is THE attachement path (between quotes)
'---------------------------------------------------------
dim AttPath
dim Rmail
CdoPR_ATTACH_MIME_TAG = &H370E001E
if wscript.Arguments.length < 1 then
m = msgbox("Usage is:" & vbCrlf & "<e-mail @> <Attachement path>(Optional)",48,"WARNING")
Wscript.Quit
end if
Rmail = wscript.arguments(0)
if wscript.Arguments.length > 1 then
AttPath = wscript.arguments(1)
end if
Q=chr(34)
HTML_1 = "Salut, <br><br>Ca roule ? <br><br> regards <p><img border=" & Q & "0" & Q & " src=" & Q & "cid:Object_1" & Q & "></p>"
SendTO = Rmail
SendSUBJECT = "[TEST]"
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
If wscript.Arguments.length > 1 Then
Set myAttach = myItem.Attachments
Set myPictureAttached = myAttach.Add(AttPath)
End If
myItem.BCC = SendTO
myItem.Subject = SendSUBJECT
HTMLBodyToDisplay = HTML_1
myItem.HTMLBody = HTMLBodyToDisplay
myItem.OriginatorDeliveryReportRequested = False ' delivery confirmation
myItem.ReadReceiptRequested = False ' read confirmation
myItem.Close olSave
strEntryID = myItem.EntryID
Set myItem = Nothing
If wscript.Arguments.length > 1 Then
Set myPictureAttached = Nothing
End If
Set oSession = CreateObject("MAPI.Session")
oSession.Logon "", "", False, False
Set oMsg = oSession.GetMessage(strEntryID)
If wscript.Arguments.length > 1 Then
Set oAttachs = oMsg.Attachments
a = "Object_1"
Set oAttach = oAttachs.Item(1)
Set colFields = oAttach.Fields
Set oField = colFields.Add(CdoPR_ATTACH_MIME_TAG, "image/jpeg")
Set oField = colFields.Add(&H3712001E, a)
oMsg.Fields.Add "{0820060000000000C000000000000046}0x8514", 11, True
oMsg.Update
End If
Set l_Msg = ol.GetNamespace("MAPI").GetItemFromID(strEntryID)
l_Msg.HTMLBody = HTMLBodyToDisplay
l_Msg.Send
Set ol = Nothing
Set myItem = Nothing
oSession.Logoff
Set oSession = Nothing
Set objApp = Nothing
Set l_Msg = Nothing
Wscript.Quit |
