Use Excel VB code to Send Attachment from Zimbra Desktop
Zimbra Desktop 1.0.4 (build 1833)
I would like to send a pdf file from my Excel VBA code through Zimbra desktop. The cells that I reference in my code have the proper paths and file names required to provide an email, subject and attachment.
I have uploaded a text file to my post, which shows how I am already allowing a user who has outlook to send a pdf. But when I tried to do the same thing using a shell command, zimbra desktop pops up, but it has not opened a new message, and it has not attached the pdf.
Unfortunately, I am unfamiliar with enough of the zimbra commands to pass an email, subject or attachment correctly .
I found this Reference case, but it does not quite show me all of the commands/steps I need.
My Code so far
Private Sub SendZimbra_Click()
Dim SH As Worksheet, TP As Worksheet
Set TP = Sheets("Template")
Set SH = Sheets("Purchased Items")
EmailAnswer = MsgBox("Create Email Now ?", vbYesNo)
If EmailAnswer = 6 Then
'Start Email Creation Process. 6 = Yes, 7 = No
Dim directory As String
Dim ZimbraPath As String, activedocument As Workbook
ZimbraPath = SH.Cells(1, 21)
directory = SH.Cells(3, 3)
AttachementName = SH.Cells(3, 3) & SH.Cells(2, 3) & " Packing Slip.pdf" 'Attachment Name & Location
SubjectName = SH.Cells(4, 3) 'Cell C4 has the subject name
EmailTo = SH.Cells(5, 3)
If AttachementName <> "" Then
On Error GoTo 1
Shell (ZimbraPath & " -sendfile " & AttachementName)
'MsgBox "PDF File does not exist !" & vbCrLf & "Create PDF, then Try Again." & vbCrLf & vbCrLf & "File Name : " & AttachementName
'Resume Next 'Ignors the error
If Err.Description <> "" Then MsgBox Err.Description
' End 'End the email creation
End If 'End creating email