Discussion :

[daniel_gre]

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 :

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
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

[ced600]

Si tu regardes bien les mails que tu reçois, les images sont toujours en attachement même celle dans le corps du texte. En fait un lien est créer entre l'image en attachement et le corps du texte pour que la boite mail recevant le mail sache qu'elle doit afficher l'image dans le corps du texte à un endroit précis.

[daniel_gre]

bonjour,

je ne suis pas d'acord avec ta remarque, ou dumoins comment est formule ta remarque...
Dans outlook (c'est l'objectif), lorsque les images sont dans le corps du texte, elles ne sont pas en attachement au message.
Il va de soit qu'elles sont attachees au message.

Dans tous les cas, cela ne resoud pas la question !!

Daniel.

[ced600]

Avec mon hypothèse je résoud ta question.

En considérant comme dans mon hypothèse que tout est en attachement, alors voir des images dans le corps du body ou en attachement cela dépend de la boite mail, de l'aspect visuel quelle souhaite donner.

Mais je peux me tromper et je n'ai pas d'autre réponse dans ce cas (car je serais dans l'erreur).

Bonne chance pour ton problème.

[daniel_gre]

Desole, mais tu es effectivement dans l'erreur,
quelque soit la boite e-mail quand on met une image dans le corps du message elle est dans le corps de l'image et pas en attachement... ca marche pour toutes les boites qui savent afficher du html...

La solution marche tres bien en vba, mais pas en vbs

Daniel

[ced600]

OK je te crois.

Ici tu fait quasiment du VBA dans du VBS puisque tu pilotes outlook.
Je pense qu'entre ce script et l'ancien script tu as du faire des choses différement et c peut être la cause de ton problème.

Si tu l'as encore, compare les deux scripts, et en dehors des différences de syntaxes, relève ce qui est différent, c'est certainement la cause de l'erreur.