Datum-Variable ändern

[d.stegemann 10]

Ich denke, dass man das ganze mit VB sicher viel schöner hinbekommt....

 

Ich weiss nicht. Ein Augenschmaus ist es gerade nicht.

 

Set oFSO = CreateObject("Scripting.FileSystemObject")
aFile = Split(DateAdd("d", Now(), -1), ".")
Logpath = "G:\Backup\Log\"
For i = UBound(aFile) To LBound(aFile) Step -1
If Len(aFile(i)) > 2 Then aFile(i) = Right(aFile(i), 2)
sFile = sFile & aFile(i)
Next
Set oFolder = oFSO.GetFolder(Logpath  & Left(sFile, 4))
sFile = sFile & "da.txt"
If not oFSO.FileExists (oFolder & "\" & sFile) Then
output = "Error.. The file """& sFile &""" has not been created"
Else 
output = "The file """& sFile &""" has been created successfuly :-)" 
End If
'MsgBox output

schema = "http://schemas.microsoft.com/cdo/configuration/"
 With CreateObject("CDO.Message")
  With .Configuration.Fields
 .Item (schema & "sendusing") = 2
 .Item (schema & "smtpserver") = "mail.yahoo.es"
 .Item (schema & "smtpserverport") = 25
 .Item (schema & "smtpauthenticate") = cdoBasic
 .Item (schema & "smtpaccountname") = "Acountname"
 .Item (schema & "sendusername") = "sender"
 .Item (schema & "sendpassword") = "passw0rd"
 '.Item (schema & "smtpusessl") = vbTrue
.Update
End With
.From = "server@comp.com"
.To = "tiha@com.com"
.Subject = "Test Mail"
.Textbody = ""& output &""
.AddAttachment oFolder & "\" & sFile
.Send
End With

 

Den Code für Mail Senden habe ich aus der Microsoft Newsgroup rausgenommen und ein klein wenig modifiziert.

 

Ich vertraue mal auf den MVP der es da gepostet hat.

Dann musst du halt noch die Einstellung für Mail anpassen.

 

Ansonsten ist es mit Sicherheit möglich dein Blat zusammen mit wsh zu nutzen...

 

Gruß

 

Dirk

 

 

PS: Mich würde ja mal interessieren wie sowas in PS aussieht ;)