WSH Open Outlook with .attachment (Zip-File)
Hello Experts,
I've a simple wsh/vbs Script which doesn't work. In "Code-Example 1" Outlook doesn't start so I think there must be a problem with the DFile.
My Script create a Zip Archiv and I want to send this Archiv via Outlook respectively open Outlook with the right attachment.
DFile is the 'guilty' item (i.g. DFile = C:\Verschlüsselung\10000\A
If I use a simple Filename in attachment.Add it works.
Why doesn't DFile work in Attachment.Add Statement? It's an $ which the absolute Filename and Filepath.
I use ByRef and ByVal, delimiter chr(34) but in "Code-Example 1" Outlook doesn't start?
Best Regards.
reredok
I've a simple wsh/vbs Script which doesn't work. In "Code-Example 1" Outlook doesn't start so I think there must be a problem with the DFile.
My Script create a Zip Archiv and I want to send this Archiv via Outlook respectively open Outlook with the right attachment.
DFile is the 'guilty' item (i.g. DFile = C:\Verschlüsselung\10000\A
' Code-Example 1
...
ScriptPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
sStr=Split(ScriptPath,"\")
FolderN=sStr(UBound(sStr)-1)
DFile = ScriptPath & "Archiv-" & FolderN & "-" & ".Zip"
...
Function Send2Outlook (DFile)
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
Set attachment = objMailItem.Attachments
attachment.Add DFile, olByValue, 4, "Great"
objMailItem.Display
...
End FunctionIf I use a simple Filename in attachment.Add it works.
' Code-Example 1
...
Function Send2Outlook ()
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
Set attachment = objMailItem.Attachments
attachment.Add "C:\123456\123456.txt", olByValue, 4, "Great"
objMailItem.Display
End Function
...Why doesn't DFile work in Attachment.Add Statement? It's an $ which the absolute Filename and Filepath.
I use ByRef and ByVal, delimiter chr(34) but in "Code-Example 1" Outlook doesn't start?
Best Regards.
reredok
ASKER
The file exists.
The same file can be send via Outlook manually.
I added the pathname/filename hard-coded in script and it works fine.
I presume that Outlook doesn't start because there must be a diffence between "C:\123456\123456.txt" and "C:\Verschlüsselung\10000\
Further I used the Filesystemobject in Function call ... with no success.
The same file can be send via Outlook manually.
I added the pathname/filename hard-coded in script and it works fine.
I presume that Outlook doesn't start because there must be a diffence between "C:\123456\123456.txt" and "C:\Verschlüsselung\10000\
Further I used the Filesystemobject in Function call ... with no success.
To clarify: You used "C:\Verschlüsselung\10000\
ASKER
Yes.
C:\Verschlüsselung\10000\A
not
C:\Verschlüsselung\10000\A
sry
the vbs code create a Zip Archiv with winrar:
i.e.
Zip-Archiv: Archiv-10001-2014-03-24_11
Syntax: a custom Nummer 10001
Date: 2014-03-24
TimeStamp: 115211
Extension: Zip
Result: C:\Verschlüsselung\Archiv-
works:
attachment.Add "C:\Verschlüsselung\Archiv
works not:
attachment.Add DFile, olByValue, 4, "Great"
where DFile = "C:\Verschlüsselung\Archiv
works not:
attachment.Add chr(34) & DFile & chr(34), olByValue, 4, "Great"
What's wrong with DFile???
C:\Verschlüsselung\10000\A
not
C:\Verschlüsselung\10000\A
sry
the vbs code create a Zip Archiv with winrar:
i.e.
Zip-Archiv: Archiv-10001-2014-03-24_11
Syntax: a custom Nummer 10001
Date: 2014-03-24
TimeStamp: 115211
Extension: Zip
Result: C:\Verschlüsselung\Archiv-
works:
attachment.Add "C:\Verschlüsselung\Archiv
works not:
attachment.Add DFile, olByValue, 4, "Great"
where DFile = "C:\Verschlüsselung\Archiv
works not:
attachment.Add chr(34) & DFile & chr(34), olByValue, 4, "Great"
What's wrong with DFile???
It's best to debug that in Outlook VBA, and that is what I will try to do now.
Edit: Works in VBA, as expected. I get the "Der Pfad ist nicht vorhanden" error for non-existing files, and the file attached in a new mail if it exists, with this simple VBA code:
Edit: Works in VBA, as expected. I get the "Der Pfad ist nicht vorhanden" error for non-existing files, and the file attached in a new mail if it exists, with this simple VBA code:
Public Sub atttest()
Dim DFile As String, objMailItem As MailItem
' DFile = "C:\Verschlüsselung\Archiv-10001-2014-03-24_115211.Zip"
DFile = "C:\temp\ee\1.txt"
Set objMailItem = CreateItem(olMailItem)
objMailItem.Attachments.Add DFile, olByValue, 4, "Great"
objMailItem.Display
End Sub
Same with VBS:
Option Explicit
const olMailItem = 0
const olByValue = 1
Dim DFile, objOutlook, objMailItem
' DFile = "C:\Verschlüsselung\Archiv-10001-2014-03-24_115211.Zip"
DFile = "C:\temp\ee\1.txt"
set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.Attachments.Add DFile, olByValue, 4, "Great"
objMailItem.DisplayASKER
it's wsh vbs code which is controlled by a "file or more file drag 'n' drop" Event. Debug is not so easy and it's impossible for my opinion in Outlook VBA.
I don't understand why
CreateObject("Outlook.Appl
Which kind of Input is needed? In ms documentation it must be a variant
I don't understand why
CreateObject("Outlook.Appl
Which kind of Input is needed? In ms documentation it must be a variant
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I rebuild my Code and found a Problem with DFile which was only declared in a vbs function and not in called code. So the scope of this var maybe not well defined... maybe outlook had same problems with this fact. So I <Dim DFile> in "Main-Code" and transmit it up to every called function so to say as dummy
It might be generated the same, but that is something we cannot see here.