Aloaha WebDAV Mailer

The Aloaha WebDAV mailer is part of the Aloaha PDF Suite. The WebDAV API itself is freeware and can be used without having to purchase a valid Aloaha PDF Suite license.

Please find a sample on how to use the WebDAV Mailer below:

Why do I need WebDAV?

You need to send automated emails via Hotmail, GMX etc
Unlike SMTP emails sent via WebDAV will appear in your sent items Folder
You need to send emails but between you and your exchange is a firewall
Port 25 not available - lots of ISPs nowadays block that port

Download WebDAV Mailer sample (1,84 KB)

'This simple script demonstrates
'how to use WebDAV to send an email.
'The WebDAV Mailer is a freeware component
'of the Aloaha PDF Suite.
'http://www.aloaha.com/download/aloaha_pdf.zip

dim webdav
dim msg
dim strmail

dim ExchangeAlias
dim ExchangeUsername
dim ExchangeServer
dim ExchangePassword

set webdav=createobject("aloahadav.webdav")

'Please note the difference between Alias and Name
webdav.ExchangeAlias="stefan"
webdav.ExchangeUsername="helgoland\stefan"

webdav.ExchangeServer="gate"
webdav.ExchangePassword="stefanspassword"

'Test if a connection can be made with the
'given credentials
if webdav.test_connection( _
   cstr(webdav.ExchangeServer), _
   cstr(webdav.ExchangeAlias), _
   cstr(webdav.ExchangeUsername), _
   cstr(webdav.ExchangePassword)) = true then

  'create email in memory
  Set msg = CreateObject("CDO.Message")

  msg.To = "stefan@aloaha.com"

  'please note that the from MUST be
  'the email address of the used User
  msg.From = "stefan@aloaha.com"

  msg.Subject="Testmail - sent via WebDAV"
  msg.TextBody="Test"

  'msg.AddAttachment ("C:\boot.ini")

  strmail=cdo2text(msg)
  if len(strmail)>0 then
   if webdav.senddavmail(cstr(strmail))=true then
    msgbox "sent"
   else
    msgbox "problem"
   end if
  end if

  set msg=nothing
else
msgbox "WebDAV Connection failed"
end if

set webdav=nothing

'function below converts any CDO Object
'into a plain Ascii String

Function cdo2text(cdomsg)
Const adTypeText = 2
dim ado

     Set ado = CreateObject("ADODB.Stream")
     ado.Type = adTypeText
    ado.Charset = "US-ASCII"
    Set ado = cdomsg.GetStream
    ado.Type = adTypeText
    ado.Charset = "US-ASCII"
    cdo2text = ado.ReadText
     set ado=nothing

End Function

Aloaha Software / Knowledge Base / WebDAV / WebDAV Mailer

Aloaha WebDAV Mailer

Download Aloaha PDF Suite here