Option Explicit
Sub Main
Dim intReturn As Integer
Dim varServer As Variant
Dim varUsername As Variant
Dim varTo As Variant
Dim varCC As Variant
Dim varSubject As Variant
Dim varBodyFileName As Variant
Dim varAttatchmentFilename As Variant
varServer = "mail.mailserver.com"
varUsername = "user@domain.com"
varTo = "recipient@anotherdomain.com"
varCC = ""
varSubject = "Subject"
varBodyFilename = "c:\Message.amm"
varAttachmentFilename = "c:\bakup.zip"
intReturn = Action2.SendEmail (varServer, varUsername, varTo, varCC, varSubject, varBodyFilename, varAttachmentFilename)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub