darksmtp_p.c

DarkATLSmtp(SMTP COM 组件原创代码),注册后可在Delphi中发邮件。

                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&bstTrueName,
                  ( unsigned char __RPC_FAR * )&bstGender,
                  ( unsigned char __RPC_FAR * )&bstBirth,
                  ( unsigned char __RPC_FAR * )&bstPersonalID,
                  ( unsigned char __RPC_FAR * )&bstMailBox,
                  ( unsigned char __RPC_FAR * )&bstCity,
                  ( unsigned char __RPC_FAR * )&bstEducation,
                  ( unsigned char __RPC_FAR * )&bstMaritalStatus,
                  ( unsigned char __RPC_FAR * )&bstJobType,
                  ( unsigned char __RPC_FAR * )&bstOccupation,
                  ( unsigned char __RPC_FAR * )&bstIncome,
                  ( unsigned char __RPC_FAR * )&bstNetCost,
                  ( unsigned char __RPC_FAR * )&bstEnquiry);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1358],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_GetUserInfoForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [out] */ VARIANT __RPC_FAR *pTrueName,
    /* [out] */ VARIANT __RPC_FAR *pGender,
    /* [out] */ VARIANT __RPC_FAR *pBirth,
    /* [out] */ VARIANT __RPC_FAR *pPersonalID,
    /* [out] */ VARIANT __RPC_FAR *pMailBox,
    /* [out] */ VARIANT __RPC_FAR *pCity,
    /* [out] */ VARIANT __RPC_FAR *pEducation,
    /* [out] */ VARIANT __RPC_FAR *pMaritalStatus,
    /* [out] */ VARIANT __RPC_FAR *pJobType,
    /* [out] */ VARIANT __RPC_FAR *pOccupation,
    /* [out] */ VARIANT __RPC_FAR *pIncome,
    /* [out] */ VARIANT __RPC_FAR *pNetCost,
    /* [out] */ VARIANT __RPC_FAR *pEnquiry)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,pEnquiry);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1470],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1470],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&pTrueName,
                  ( unsigned char __RPC_FAR * )&pGender,
                  ( unsigned char __RPC_FAR * )&pBirth,
                  ( unsigned char __RPC_FAR * )&pPersonalID,
                  ( unsigned char __RPC_FAR * )&pMailBox,
                  ( unsigned char __RPC_FAR * )&pCity,
                  ( unsigned char __RPC_FAR * )&pEducation,
                  ( unsigned char __RPC_FAR * )&pMaritalStatus,
                  ( unsigned char __RPC_FAR * )&pJobType,
                  ( unsigned char __RPC_FAR * )&pOccupation,
                  ( unsigned char __RPC_FAR * )&pIncome,
                  ( unsigned char __RPC_FAR * )&pNetCost,
                  ( unsigned char __RPC_FAR * )&pEnquiry);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1470],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_CreateSysInfoForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [in] */ VARIANT bstNickName,
    /* [in] */ VARIANT bstNotWithOriMail,
    /* [in] */ VARIANT bstMarkOriMsg,
    /* [in] */ VARIANT bstSaveOutBox,
    /* [in] */ VARIANT bstDelOption,
    /* [in] */ VARIANT bstFullWarnRate,
    /* [in] */ VARIANT bstRecvDelInServer)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,bstRecvDelInServer);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1582],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1582],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&bstNickName,
                  ( unsigned char __RPC_FAR * )&bstNotWithOriMail,
                  ( unsigned char __RPC_FAR * )&bstMarkOriMsg,
                  ( unsigned char __RPC_FAR * )&bstSaveOutBox,
                  ( unsigned char __RPC_FAR * )&bstDelOption,
                  ( unsigned char __RPC_FAR * )&bstFullWarnRate,
                  ( unsigned char __RPC_FAR * )&bstRecvDelInServer);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1582],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_GetSysInfoForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [out] */ VARIANT __RPC_FAR *pNickName,
    /* [out] */ VARIANT __RPC_FAR *pNotWithOriMail,
    /* [out] */ VARIANT __RPC_FAR *pMarkOriMsg,
    /* [out] */ VARIANT __RPC_FAR *pSaveOutBox,
    /* [out] */ VARIANT __RPC_FAR *pDelOption,
    /* [out] */ VARIANT __RPC_FAR *pFullWarnRate,
    /* [out] */ VARIANT __RPC_FAR *pRecvDelInServer)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,pRecvDelInServer);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1658],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1658],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&pNickName,
                  ( unsigned char __RPC_FAR * )&pNotWithOriMail,
                  ( unsigned char __RPC_FAR * )&pMarkOriMsg,
                  ( unsigned char __RPC_FAR * )&pSaveOutBox,
                  ( unsigned char __RPC_FAR * )&pDelOption,
                  ( unsigned char __RPC_FAR * )&pFullWarnRate,
                  ( unsigned char __RPC_FAR * )&pRecvDelInServer);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1658],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_CreateAssistInfoForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [in] */ VARIANT bstRejectMail,
    /* [in] */ VARIANT bstEnableReply,
    /* [in] */ VARIANT bstAutoReplyContent)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,bstAutoReplyContent);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1734],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1734],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&bstRejectMail,
                  ( unsigned char __RPC_FAR * )&bstEnableReply,
                  ( unsigned char __RPC_FAR * )&bstAutoReplyContent);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1734],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_GetAssistInfoForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [out] */ VARIANT __RPC_FAR *pRejectMail,
    /* [out] */ VARIANT __RPC_FAR *pEnableReply,
    /* [out] */ VARIANT __RPC_FAR *pAutoReplyContent)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,pAutoReplyContent);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1786],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1786],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&pRejectMail,
                  ( unsigned char __RPC_FAR * )&pEnableReply,
                  ( unsigned char __RPC_FAR * )&pAutoReplyContent);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1786],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_AddGroupNameForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [in] */ VARIANT bstGroupName)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,bstGroupName);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1838],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1838],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&bstGroupName);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1838],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_DelGroupNameForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [in] */ VARIANT bstGroupName)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,bstGroupName);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1878],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1878],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&bstGroupName);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1878],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_GetGroupListForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [out] */ VARIANT __RPC_FAR *pGroupList)
{
CLIENT_CALL_RETURN _RetVal;


#if defined( _ALPHA_ )
    va_list vlist;
#endif
    
#if defined( _ALPHA_ )
    va_start(vlist,pGroupList);
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1918],
                  vlist.a0);
#elif defined( _PPC_ ) || defined( _MIPS_ )

    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1918],
                  ( unsigned char __RPC_FAR * )&This,
                  ( unsigned char __RPC_FAR * )&bstMailPath,
                  ( unsigned char __RPC_FAR * )&bstUserId,
                  ( unsigned char __RPC_FAR * )&pGroupList);
#else
    _RetVal = NdrClientCall2(
                  ( PMIDL_STUB_DESC  )&Object_StubDesc,
                  (PFORMAT_STRING) &__MIDL_ProcFormatString.Format[1918],
                  ( unsigned char __RPC_FAR * )&This);
#endif
    return ( HRESULT  )_RetVal.Simple;
    
}

/* [helpstring][id] */ HRESULT STDMETHODCALLTYPE ISmtpModel_AddGroupUserForWeb_Proxy( 
    ISmtpModel __RPC_FAR * This,
    /* [in] */ VARIANT bstMailPath,
    /* [in] */ VARIANT bstUserId,
    /* [in] */ VARIANT bstGroupName,
    /* [in] */ VARIANT bstMemberName,
    /* [in] */ VARIANT bstMemberNick,
    /* [in] */ VARIANT bstMemberAddr,
    /* [in] */ VARIANT bstMemberTel,
    /* [in] */ VARIANT bstMemberRemark)
{