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
| Const conForReading = 1
'Declare variables
Dim objFSO, objReadFile, contents, Sh, vDest, vMailSrv, vDomain, vExpediteur, vExecution, vSujet, vMsg, vPJ,messageHTML
'Set Objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFSO.OpenTextFile("H:\Sauvegardes\Logs\Robocopy_Data2_Erreurs.txt", 1, False)
Set Sh=CreateObject("WScript.Shell")
'Read file contents
contents = objReadFile.ReadAll
'Close file
objReadFile.close
'Display results
wscript.echo contents
vDest="informatique@rdc.com"
vMailSrv="smtp.rdc.com"
vExpediteur="Sauvegarde_Data2@rdc.com"
vSujet="""Sauvegarde Data2"""
'vMsg="""Ci-joint le CR de la sauvegarde du serveur Data2""" '& contents
vMsg=contents
vPJ="H:\Sauvegardes\Logs\Robocopy_Data2_Erreurs.txt"
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = vSujet
objMessage.From = vExpediteur
objMessage.To = vDest
messageHTML=vMsg&"<br><br>Ceci est un message en HTML envoyé par hackoo"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vMailSrv
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'Ajout d'un message en HTML en affichant une image hébergé dans un serveur distant
objMessage.HTMLBody="<center><font size=4 FACE=Comic sans MS Color=red>"&messageHTML&"<br><br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif>"
If vPJ <> "" Then
objMessage.AddAttachment(vPJ) 'On peut ajouter aussi une image ou un fichier dans la piéce-jointe
end if
on error resume next
objMessage.Send
If Err.Number <>0 Then
Msgbox "le mail n'a pas pu être envoyé !",16,"Erreur d'envoi du Mail"
MsgBox Err.Description,16,"Erreur d'envoi du Mail"
Else
Msgbox "Le mail a été bien envoyé !",64,"Information"
End If |
Partager