Vbs de xcopy birden fazla tanımlanınca mail atmıyor, mail at...

Maruf Arslan

(@marufarslan)

Gönderiler: 167

Reputable Member

Konu başlatıcı

kaynak1 ="c:\Data"

kaynak2="\\sbs\Test"

hedefyer ="F:\test"

backupcmd1=" /d /s /v /y /z"

strSMTPFrom = "[email protected]"

strSMTPTo = "[email protected]"

strSMTPRelay = "192.168.1.2"

strSubject = "File copy completed"

kaynak1 = cleanPath(kaynak1)

hedefyer = cleanPath(hedefyer)

Set WshShell = CreateObject ("Wscript.shell")

Set objExec = WSHshell.Exec("xcopy " & chr(34) & kaynak1 & "\1\*.*" & chr(34) & " " & chr(34) & hedefyer & "\SBS\1\" & chr(34) & backupcmd1)

Set objExec = WSHshell.Exec("xcopy " & chr(34) & kaynak1 & "\2\*.*" & chr(34) & " " & chr(34) & hedefyer & "\SBS\2\" & chr(34) & backupcmd1)

' xcopy birden tanımlanınca mail atmıyor, mail atması nasıl sağlanır.

strResult = ""

Do While Not objExec.StdOut.AtEndOfStream

strTemp = objExec.StdOut.ReadLine()

strResult = strResult & vbCRLF & strTemp

Loop

'Email bildirimi

Set oMessage = CreateObject("CDO.Message")

oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPRelay

oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

oMessage.Configuration.Fields.Update

oMessage.Subject = strSubject

oMessage.From = strSMTPFrom

oMessage.To = strSMTPTo

oMessage.TextBody = "Kopyalama başarı / başarısızlık için günlüğünü gözden geçirin, tamamladı." & vbCRLF & vbCRLF & strResult

oMessage.Send

Function cleanPath(strPath)

If Right(strPath, 3) = "*.*" Then

strPath = Left(strPath, Len(strPath) - 3)

End If

If Right(strPath, 1) = "\" Then

strPath = Left(strPath, Len(strPath) - 1)

End If

cleanPath = strPath

End Function

"Dalgasız denizde, herkes kaptandır."

Gönderildi : 17/05/2014 02:15

Hakan Uzuner

(@hakanuzuner)

Gönderiler: 33367

Illustrious Member Yönetici

Bulursanız bizimlede paylaşın 🙂

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

Gönderildi : 18/05/2014 17:57