The sample below shows how to add an additional body part to a message using cdosys. This example demonstrates adding a "text/calendar" (vcalendar) body part, however it should be possible to use this to add "text/plain", "text/html" and other types. In the sample, "this.VCalendarText" holds the text to be written to the body part (in this case its a VCalendar meeting request. //============================ VCalendar ============================== if (this.AddVCalendar == true) { oMsg.BodyPart.ContentClass

The sample below shows how to add an additional body part to a message using System.Net.Mail. This example demonstrates adding a "text/calendar" (vcalendar) body part, however it should be possible to use this to add "text/plain", "text/html" and other types. In the sample, "this.VCalendarText" holds the text to be written to the body part (in this case its a VCalendar meeting request. //======================================================================= // Set_SSNM_BodyPart_VCalendar // // oMsg

//============================ Optional Settings ======================== if (this.Priority.Length != 0) { if (this.Priority == "Non Urgent") { oMsg.Priority = System.Web.Mail.MailPriority.Low; }; if (this.Priority == "Normal") { oMsg.Priority = System.Web.Mail.MailPriority.Normal; }; if (this.Priority == "Urgent") { oMsg.Priority = System.Web.Mail.MailPriority.High; }; } if (this.RequestReadReceipt == true) { oMsg.Fields["urn:schemas:mailheader:disposition-notification-to"] = this.From; } if (this.RequestDeliveryReceipt

//============================ Optional Settings ======================== if (this.Priority.Length != 0) { // Well... it seems that priority is not what needs to be set to get priority set... // Looks like setting importance will set priority... at least for cdosys... hmmm if (this.Priority == "Non Urgent") { oMsg.Fields["urn:schemas:mailheader:importance"].Value = "Low"; //oMsg.Fields["urn:schemas:mailheader:priority"].Value = "Nonurgent"; // -1 }; // -1 if (this.Priority == "Normal") { oMsg.Fields["urn:schemas:mailheader:importance"].Value

Here is a partial sample on setting header fields with System.Net.Mail: //============================ Instance Message =========================== oMsg = new System.Net.Mail.MailMessage(); //============================ Optional Settings =========================== if (this.Priority.Length != 0) { if (this.Priority == "Non Urgent") { oMsg.Priority = System.Net.Mail.MailPriority.Low; }; if (this.Priority == "Normal") { oMsg.Priority = System.Net.Mail.MailPriority.Normal; }; if (this.Priority == "Urgent")

There is no mechanism to add an attachment in WebDAV. You will need to create/recreate the item using a WebDAV PUT. The text you would be putting would be the mime of the item, which also contains the attachment. It’s useful here to use CDOSYS to create a message and add an attachment – then extract the MIME from the message and use it for the WEBDAV PUT. You will need a header of "translate" set to "f". If the message already exists, you will need to, you must do a GET on the message stream, which

Private Sub Command1_Click() '===================================================== 'DoXML takes the href to a document 'and returns the MAPI PR_ENTRYID property expressed in 'a hexadecimal string format such as is used by CDO 1.21 'Function DoXML(strHref) Dim objX Dim objXMLdoc Dim objNode Dim strR As String Dim retXML As String Dim parseStringtemp As String Dim parseString As String strHref = "<<Error! Hyperlink reference not valid.> folders/public folder/subject.eml>" '<< http://servername/exchange/mailboxname/

In this example, the following properties are set during the folder creation. outlookfolderclass contentclass The warning limit in KB Prohibit Post at (KB). Maximum item Size (KB) addressbookdisplayname isreadonly ishidden When reading and setting certain properties, it’s necessary to use the exchange admin path. This path provides special admin privileges. An Exchange Admin login must be used when using this path. Private Sub cmdMakeFolder_Click() Dim XMLreq As New MSXML2.XMLHTTP40 Dim sReq As String

'------------------------------------------------------------------------------- ' WriteFileText - Used to write an item to a file in a folder. ' Parameters: ' sFile - The file to read ' ' Returns: ' A string containing the content of the file. '------------------------------------------------------------------------------- Function WriteFileText(sFilePath, sText) Dim objFSO 'As FileSystemObject Dim objTextFile 'As Object Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Set objFSO

'----------------------------------------------------------------------------------- ' ReadFileText - Used to read a file in a folder. ' Parameters: ' sFile - The file to read ' ' Returns: ' A string containing the content of the file. '----------------------------------------------------------------------------------- Function ReadFileText (sFile) Dim objFSO 'As FileSystemObject dim oTS dim sText Set objFSO = CreateObject("Scripting.FileSystemObject") Set oTS = objFSO.OpenTextFile(sFile) sText =