Export (0) Print
Expand All

SaveTo Method

Exchange Server 2003

SaveTo Method

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Binds to and saves data into the item with the specified URL.

Applies To

Type Library

Microsoft CDO for Exchange 2000 Library

DLL Implemented In

CDOEX.DLL

Syntax

        [Visual Basic]Function SaveTo
(
    SourceURL As String,     [ActiveConnection As Object],     [Mode As ConnectModeEnum],     [CreateOptions As RecordOpenOptionsEnum],     [Options As RecordOpenOptionsEnum],     [Username As String],     [Password As String],     [UserName As String]
)

        [C++]HRESULT SaveTo
(
    BSTR SourceURL,
    IDispatchActiveConnection,
    ConnectModeEnum Mode,
    RecordOpenOptionsEnum CreateOptions,
    RecordOpenOptionsEnum Options,
    BSTR Username,
    BSTR Password,
    BSTR UserName
);

Parameters

SourceURL
The URL specifying where to save.
ActiveConnection
A reference to an existing Microsoft ActiveX Data Objects (ADO) Connection object to use when saving. A new Connection (session) object is implicitly created if none is specified.
Mode
ADO defined access mode for the object. This value is always ORed with adModeReadWrite. That is, at least read-write access is required to save the item.
CreateOptions
Creation options for the new item. The values adFailIfNotExists and adOpenIfExists should not be used. If used, an E_INVALIDARG exception is raised.
Options
This specifies options flag(s) opening the source. Your setting is always ORed with adOpenSource.
Username
Used to pass a user name if needed for authentication.
Password
Used to pass a password if needed for authentication.
UserName

Return Value

Returns S_OK if successful, or an error value otherwise.

Remarks

The specified URL must identify a valid URL namespace that the OLE DB 2.5 root binder can resolve to a registered provider binder. When resolved, the URL must conform to that provider binder's URL semantics. The specified URL must also be compatible with the Exchange store. For information about building compatible URLs, see Exchange Store URLs.

The enumerated values and their semantic definitions are defined as part of the ActiveX Data Objects database (ADODB) type library and documentation. Consult the ADO (ADO) 2.5 documentation for a list of valid enumeration values and their intended purposes. Use of various enumerated values and their intended meanings is specific to a particular OLE DB 2.5 provider.

Restrictions on what types of data can be saved into a particular resource and how that data is handled by an implementation of the IDataSource interface is not part of this definition. Consult the appropriate Component Object Model (COM) class reference for further information.

Examples

        [Visual Basic]

' Reference to Microsoft CDO for Exchange 2000 Library
' Reference to Microsoft ActiveX Data Objects 2.5 Library

' Note: It is recommended that all input parameters be validated when they are
' first obtained from the user or user interface.
Function CreateAndSaveMessageTo(Url1 As String) As CDO.message

    Dim iDsrc As CDO.IDataSource
    Dim Conn As New ADODB.Connection
    Conn.Provider = "ExOLEDB.DataSource"
    Conn.Open Url1

    Dim iMsg As New CDO.message

    With iMsg
        .To       = "someone@example.com"
        .From     = "another@example.com"
        .Subject  = "Here is the subject"
        .TextBody = "Here is the text of the message"
    End With

    Set iDsrc = iMsg

    iDsrc.SaveTo Url1 & "/mymessage.eml", _
                Conn, _
                adModeReadWrite

    ' Close connection
    Conn.Close
    Set Conn = Nothing

    Set CreateAndSaveMessageTo = iMsg

End Function

        [C++]


 // You must have the following paths in your
 // INCLUDE path.
 // %CommonProgramFiles%\system\ado
 // %CommonProgramFiles%\microsoft shared\cdo

#ifndef _CORE_EXAMPLE_HEADERS_INCLUDED
#define _CORE_EXAMPLE_HEADERS_INCLUDED
#import <msado15.dll> no_namespace
#import <cdoex.dll> no_namespace
#include <iostream.h>
#define BUFLEN   40
#endif

// Note: It is recommended that all input parameters be validated when they are
// first obtained from the user or user interface.
void SaveMessageToFolder1(IMessagePtr pMsg, bstr_t url) {

   _ConnectionPtr pConn(__uuidof(Connection));

   if(pMsg == NULL)
      throw _com_error(E_INVALIDARG);

   // For passing optional variants, you may need the following.
   _variant_t varOpt(DISP_E_PARAMNOTFOUND,VT_ERROR);
   IDataSourcePtr pDsrc = pMsg;

   pConn->Provider = "ExOLEDB.DataSource";
   try {
      pConn->Open(url,bstr_t(),bstr_t(),-1);
   }
   catch(_com_error e) {
      throw e;
   }
   GUID g;
   if(FAILED(CoCreateGuid(&g))) {
      cerr << "Error creating GUID" << endl;
      throw _com_error(E_FAIL);
   }
   wchar_t buf[BUFLEN];
   memset((void*)(wchar_t*)buf,0,BUFLEN);
   if( StringFromGUID2(g,(wchar_t*)buf,BUFLEN) == 0 ) {
      cerr << "Error getting string from GUID?" << endl;
      throw _com_error(E_UNEXPECTED);
   }

   try {
      pDsrc->SaveTo(
            url + bstr_t(buf) + bstr_t(".eml"),

            // Connection from Folder bind above.
            variant_t((IDispatch*)pConn,true),
            adModeReadWrite,
            adCreateNonCollection,
            (RecordOpenOptionsEnum) NULL,
            bstr_t(),
            bstr_t()
            );
   }
   catch(_com_error e) {
      cerr << "Error saving message to folder!" << endl;
      throw e;
   }

   // Close connection.
   pConn->Close();
   pConn = NULL;
}

<job id="idatasource_saveto">
<reference object="adodb.record"/>
<reference object="cdo.message"/>
<script language="vbscript">

    Dim iDsrc
    Dim iMsg
    Dim Conn
    Dim InfoNT
    Dim Info
    Dim sFolderUrl

    Set Info   = CreateObject("ADSystemInfo")
    Set InfoNT = CreateObject("WinNTSystemInfo")
    Set Conn   = CreateObject("ADODB.Connection")
    Set iMsg   = CreateObject("CDO.Message")

    sFolderUrl = "http://" & InfoNt.ComputerName & "." & Info.DomainDNSName &  _
           "/public/test_folder/"

    Conn.Provider = "ExOLEDB.DataSource"
    Conn.Open sFolderUrl

    ' ...

    With iMsg
        .To   = "someone@example.com"
        .From = "another@example.com"
        .Subject = "Here is the subject"
        .TextBody = "Here is the text of the message"
    End With

    Set iDsrc = iMsg.DataSource
    iDsrc.SaveTo sFolderUrl & "/item10.eml", Conn
    Wscript.Echo "Saved To and bound to item at URL: " & iDsrc.SourceURL

    iMsg.TextBody = iMsg.TextBody & vbCrLf & "And this is another line."
    iDsrc.Save

    ' Close connection
    Conn.Close
    Set Conn = Nothing
</script>
</job>
Show:
© 2014 Microsoft