Probleme-à-la-con avec un script VBS

Probleme-à-la-con avec un script VBS - VB/VBA/VBS - Programmation

Marsh Posté le 11-01-2013 à 11:21:06    

Bonjour,
 
j'ai un Probleme-à-la-con avec un script: le retour à la ligne est foireux
 
c'est pas très joli quand je reçois un mail
 
le script en question:

Code :
  1. 'Ce script permet de parser un log robocopy pour detecter les erreurs de copies et d'envoyer le log par mail avec une alerte
  4. Dim txtSMTPServer, txtPort, txtTo, txtFrom, txtSubject, txtBodyOk, txtBodyFailure, txtLog, strValue, iTotal, iPos, strText
  5. '''''' A personnaliser ''''''''''''''''''''''''''''
  6.     txtSMTPServer = "127.0.0.1"
  7. txtPort = 24
  8. txtTo = "tbr@*****.be"
  9. txtFrom = "help@*******.be"
  10. txtSubject = "*****SQL backup status"
  11. txtBodyOk = "Your Robocopy Backup Job was successfully completed - attached file has details. " 
  12. txtBodyFailure = "Your Robocopy Backup Job has completed with one or more errors - attached file has details." 
  13.     txtLog = "C:\***********\robocopy\SQLBACKUPS.txt" 'chemin d'acces vers le log
  14.     txtErrorLevel = "C:\********\robocopy\errorlevelsql.txt"
  16.                
  19.  'gestion des erreurs robocopy
  20. ' strText = GetFile(txtLog)
  21. '   iPos = 1
  22.   '  Do While iPos <= Len(strText)
  23.    '    If InStr(iPos, UCase(strText), "0X00000" ) > 0 Then
  24.     '       iTotal = iTotal + 1
  25.      '           iPos = InStr(iPos, UCase(strText), "0X00000" )_
  26.       '          + Len("0X00000" )
  27.        '     Else
  28.         '        Exit Do
  29.          '   End If
  30.     'Loop
  31. strErrorlevel = GetFile(txtErrorLevel)
  32.     '-- --
  33.  
  38. 'preparation du mail
  39.            
  40.     Set sendmail = CreateObject("CDO.Message" )
  42. 'sendusing permet d'expliciter la facon d'envoyer le mail
  43. ' la valeur 2 utilise un client pour l'envoi du mail, il faut donc qu'il y en ai 1 d'installé et configuré
  44. 'la valeur 1 utilise le service smtp du server local (ou d'un server distant)
  45. 'http://msdn.microsoft.com/en-us/library/exchange/ms873037%28v=exchg.65%29.aspx
  46.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
  47.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = txtSMTPServer
  48.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = txtPort
  49.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ) = txtFrom
  50.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 0
  51.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "my@gmail.com"
  52.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "password"
  53.     sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = false
  54.                
  55.     sendmail.Configuration.Fields.Update
  56.                
  57.     sendmail.From = txtFrom
  58.     sendmail.To = txtTo
  59.     sendmail.Subject = txtSubject
  60.    
  63. If strErrorlevel <= 3 Then
  64.  sendmail.Textbody = txtBodyOk  &  errorMessage(strErrorlevel) & vbNewline & "( Error level " & strErrorlevel &" )"
  65. else
  66.  sendmail.Textbody = txtBodyFailure &  errorMessage(strErrorlevel) & vbNewline & "( Error level " & strErrorlevel &" )"
  68.     End If
  70. 'on joint le log en attache
  71. sendmail.AddAttachment txtLog
  72.    
  73. 'Envoi du mail
  74. sendmail.Send
  75.    
  77. 'lecture du log
  78. function GetFile(txtLog)
  79.       If txtLog<>"" Then
  80.         Dim FS, FileStream
  81.         Set FS = CreateObject("Scripting.FileSystemObject" )
  82.           on error resume Next
  83.           Set FileStream = FS.OpenTextFile(txtLog)
  84.           GetFile = FileStream.ReadAll
  85.       End If
  86.     End Function
  88. function errorMessage(txtErrorLevel)
  89.  
  90.         if (txtErrorLevel >= 0 AND txtErrorLevel <= 16 ) Then
  91.             Select Case txtErrorLevel
  92.                 Case 0
  93.                     errorMessage = "No errors occurred, and no copying was done. The source and destination directory trees are completely synchronized. "
  94.                 Case 1
  95.                     errorMessage = "One or more files were copied successfully (that is, new files have arrived)."
  96.                 Case 2
  97.                     errorMessage = "Some Extra files or directories were detected. Examine the output log for details. "
  98.                 Case 3
  99.                     errorMessage = "Certains fichiers ont été copiés. Des files supplémentaires étaient présents. Aucune erreur ne s'est produite."
  100.                 Case 4
  101.                     errorMessage = "Some Mismatched files or directories were detected. Examine the output log. Some housekeeping may be needed."
  102.              
  103.                 Case 6
  104.                     errorMessage = "Il existe des fichiers supplémentaires et des fichiers qui ne correspondent pas. Aucun fichiers copiés et aucunr erreur apparue. Cela signifie que les fichiers existent déjà dans le répertoire de destination."
  105.                 Case 7
  106.                     errorMessage = "Les fichiers ont été copiés, une incompatibilité de fichier était présente et des fichiers supplémentaires étaient présents."
  107.                 Case 8
  108.                     errorMessage = "Some files or directories could not be copied (copy errors occurred and the retry limit was exceeded).Check these errors further."
  109.                 Case 16
  110.                     errorMessage = "Serious error. Robocopy did not copy any files. Either a usage error or an error due to insufficient access privileges on the source or destination directories."
  111.             End Select
  112.         else
  113.             errorMessage= "Unknow Error, please read the log"
  114.         end if
  115.     End Function


 
 
le retour à la ligne est foireux : je voudrais qu'il affiche
 
Your Robocopy Backup Job was successfully completed - attached file has details
Details de l'error level : Certains fichiers ont été copiés. Des files supplémentaires étaient présents. Aucune erreur ne s'est produite.
(Error level 3)
 
Quelqu'un aurait une idée ?
 
 

Reply

Marsh Posté le 11-01-2013 à 11:21:06   

Reply

Marsh Posté le 11-01-2013 à 14:52:04    

Bonjour,
essaie de remplacer vbNewline par vbcrlf.


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 12-01-2013 à 11:11:52    

 
              Ou sinon par vbLf …
 

Reply

Marsh Posté le 21-01-2013 à 15:13:02    

ca marche avec vbLf
 
merci

Reply

Marsh Posté le 21-01-2013 à 19:32:23    

 
              Merci pour ton retour !
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed