HOWTO: Send Email With Attachment Using VB and WebDAV

To send an email with WebDAV, you will you will need to create/recreate the item with a WEBDAV PUT using the MIME of the message.  It gets tricky when working with attachments.  To get around the complexity of sending an email with an attachment, you may want to look at using CDOSYS to build the…

5

CDO 1.21 and Unicode Text (Japanese, Chinese, Korean, etc)

CDO 1.21 and Unicode Text (Japanese, Chinese, Korean, etc)   Having issues using CDO 1.21 with multi-byte (unicode) languages such as Japanese, Korean, Chinese? Do you want a way to create an appointment item with Japanese text using CDO 1.21?  This is not as straight-forward as it should be, here is info to help.  You will probably…

0

HOWTO: VB6/CDO 1.21 – expand a distribution list

Below is a sample:   ‘ TODO: Create a new VB Project’ TODO: Set a reference to CDO 1.21′ TODO: Add a button to the form and paste this code in.’ TODO: Change TODO: sections below. Private Sub Command1_Click()     Dim objSession As MAPI.Session    Dim ObjMessage As MAPI.Message    Dim objUseRecips As MAPI.Recipients    Dim objRecips As…

2

How to read free/busy information using CDOEX and VBS?

Below is a .VBS sample… please note that this needs to run from the Exchange server. ‘———————————————————————————————————‘ getfb.vbs – Get Free/Busy information using CDOEX and VBS’ This code must run from Exchange Server’ Instructions:’   Save to a file called getfb.vbs’   Do the TODO: sections’   Run from the command line using:  cscript getfb.vbs’———————————————————————————————————Dim strUserToCheckDim iAddr    Dim…

0

Looking for a way to save a .msg file or load a .msg file?

Outlook Object Model (OOM) can do this easily.  Below is a sample:   howto – save and load a message to a folder.Sub SaveAndLoadMsgFile()   Dim ol As Outlook.Application   Dim olns As Outlook.NameSpace   Dim oOrigItem As Outlook.MailItem   Dim oNewItem As Outlook.MailItem   Set ol = CreateObject(“Outlook.Application”)   Set olns = ol.Session   Set oOrigItem = olns.GetDefaultFolder(olFolderInbox).Items(1)   oOrigItem.SaveAs “C:\test.msg”, olMSG  …

2