IMessage Interface

Sub SendMessageExample1()

    Dim iMsg As New CDO.message
    Dim iBp As CDO.IBodyPart
    Dim Flds As ADODB.Fields
    Dim Stm As ADODB.Stream
    
    Dim iConf As New CDO.Configuration
    Set Flds = iConf.Fields
    Flds(cdoSendUsingMethod) = cdoSendUsingPort
    Flds(cdoSMTPServer) = "MySMTPServer"
    Flds(cdoSMTPServerPort) = 25
    Flds(cdoSMTPAuthenticate) = cdoAnonymous     ' 0
    Flds.Update
    
    With iMsg
     Set .Configuration = iConf
         .To = "someone@microsoft.com, another@microsoft.com"
         .From = "thirdperson@microsoft.com, fourth@microsoft.com"
         .Sender = "finally@microsoft.com"
         .Subject = "Files for Monday's meeting."
         .TextBody = "Please review the attached files for Monday's meeting.  Thanks." + vbLfCr + vbLfCr
    
      Set iBp = .AddAttachment(PATH & "mydocument.doc")
      Set Stm = iMsg.GetStream
      Stm.SaveToFile "c:\mysavedmessage.eml", adSaveCreateOverWrite
       .Send
    End With

End Sub

IMessagePtr* CreateSampleMessage() {

   /*
   ** Assume these header files:
   ** #import <msado15.dll> no_namespace
   ** #import <cdoex.dll> no_namespace
   ** #include <iostream.h>
   */

   IMessagePtr*      pmsg      = NULL;
   IBodyPartPtr      bp;
   IConfigurationPtr   config(__uuidof(Configuration));
   FieldsPtr         flds;
   FieldPtr         fld;
   _StreamPtr         stm;

   _bstr_t bstrEmpty("");

   pmsg = new IMessagePtr(__uuidof(Message));

   (*pmsg)->To      = "\"Some One\" <someone@microsoft.com>, \"Another\" <another@microsoft.com>";
   (*pmsg)->From      = "\"ThirdPerson\" <thirdperson@microsoft.com>, \"Fourth\" <fourth@microsoft.com>";
   (*pmsg)->Sender   = "\"Finally\" <finally@microsoft.com>";
   (*pmsg)->Subject   =   "A really cool message.";

   /*
   ** Get current directory so that relative paths
   ** can be expanded. This is needed for AddAttachment.
   */

   LPTSTR buf = NULL;
   DWORD buflen = 0;
   _bstr_t path;
   if( ( buflen = GetCurrentDirectory(buflen,NULL) ) > 0 ) {
      buf = new TCHAR[buflen+1];
      GetCurrentDirectory(buflen+1,buf);
      path = buf;
      delete [] buf;
   }
   else {
      cerr << "Error getting current directory" << endl;;
      throw _com_error(GetLastError());
   }

   try {
      bp = (*pmsg)->AddAttachment(path + _bstr_t("\\..\\misc\\wordfile.doc"),
                           bstrEmpty,
                           bstrEmpty);
   
      bp = (*pmsg)->AddAttachment(path + _bstr_t("\\..\\misc\\message2.eml"),
                           bstrEmpty,
                           bstrEmpty);
      bp->Fields->Item["urn:schemas:mailheader:content-type"]->Value = _variant_t("message/rfc822");
      bp->Fields->Update();

      (*pmsg)->CreateMHTMLBody(_bstr_t("http://msdn.microsoft.com"),cdoSuppressAll,_bstr_t(""),_bstr_t(""));
   }
   catch(...) {
      throw;
   }

   // Save a copy to the local file system.
   stm = (*pmsg)->GetStream();
   stm->SaveToFile(_bstr_t("savemymessage.eml"),adSaveCreateOverWrite);

   return pmsg;
}

Sub SendMessageExample1()

    ' PATH is the absolute path to the resource in the code below
    Dim iMsg
    Set iMsg = CreateObject("CDO.Message")
    Dim iBp
    Dim Flds
    Dim Stm
    
    Dim iConf
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields

    Const cdoSendUsingMethod  = "http://schemas.microsoft.com/cdo/configuration/sendusing"
    Const cdoSMTPServer       = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
    Const cdoSMTPServerPort   = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
    Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
    Const cdoSendUsingPort    = 2
    Const cdoAnonymous        = 0
    Const adSaveCreateOverWrite = 2

    Flds(cdoSendUsingMethod) = cdoSendUsingPort
    Flds(cdoSMTPServer) = "MySMTPServer"
    Flds(cdoSMTPServerPort) = 25
    Flds(cdoSMTPAuthenticate) = cdoAnonymous     ' 0
    Flds.Update
    
    With iMsg
     Set .Configuration = iConf
         .To = "someone@microsoft.com, another@microsoft.com"
         .From = "thirdperson@microsoft.com, fourth@microsoft.com"
         .Sender = "finally@microsoft.com"
         .Subject = "Files for Monday's meeting."
         .TextBody = "Please review the attached files for Monday's meeting.  Thanks." + vbLfCr + vbLfCr
    
      Set iBp = .AddAttachment(PATH & "mydocument.doc")
      Set Stm = iMsg.GetStream
      Stm.SaveToFile "c:\mysavedmessage.eml", adSaveCreateOverWrite
       .Send
    End With

End Sub