有赏！！！！！vc中有没收发e_mail的控件

[neverdown]

vc中有没收发e_mail的控件

[prog_st]

控件没有，也不是VC开发的手段。
可以给你例程，Email!

[a_kun]

[e-mail]

也给我一个，谢谢！！！

[neverdown]

豪爽！ [e-mail]

[zhj_long]

：　prog_st(st)　
我请客，
给我来一个：[e-mail]

[neverdown]

st哥们
怎么还没收到你的例啊，急着给你加分呢

[tar]

到codeguru.com去找吧

[prog_st]

>[e-mail]发出!

[lookfar]

在MSDN中就有源代码，我这就有，如果大家急的话：
CWhatWereYouDoingDlg dlg1(this);
dlg1.m_strString = m_strWhatWereYouDoing;
if(dlg1.DoModal() == IDOK)
{
m_strWhatWereYouDoing = dlg1.m_strString;
HINSTANCE hMail = NULL;
hMail = ::LoadLibraryA("MAPI32.DLL");

if (hMail == NULL)
{
AfxMessageBox(AFX_IDP_FAILED_MAPI_LOAD);
return;
}
ASSERT(hMail != NULL);

ULONG (PASCAL *lpfnSendMail)(ULONG, ULONG, MapiMessage*, FLAGS, ULONG);
(FARPROC&)lpfnSendMail = GetProcAddress(hMail, "MAPISendMail");
if (lpfnSendMail == NULL)
{
AfxMessageBox(AFX_IDP_INVALID_MAPI_DLL);
return;
}
ASSERT(lpfnSendMail != NULL);

// make a recipient
MapiRecipDesc rec;

char szRName[] = "Clever Porgrammer";
char szRAddress[] = "SMTP:[e-mail]";
memset(&rec, 0, sizeof(rec));
rec.ulRecipClass = MAPI_TO;
rec.lpszName = szRName;
rec.lpszAddress = szRAddress;

char szSubject[] = "An Exception has occurred";

// prepare the message -----------------------------------------------------

MapiMessage message;
memset(&message, 0, sizeof(message));

message.nRecipCount = 1;
message.lpRecips = &rec;
message.lpszSubject = szSubject;

CString s = m_strWhatWereYouDoing;
s += "\n";
PrepareErrorMessage(s);

message.lpszNoteText = s.GetBuffer(s.GetLength());

// prepare for modal dialog box
AfxGetApp()->EnableModeless(FALSE);
HWND hWndTop;
CWnd* pParentWnd = CWnd::GetSafeOwner(NULL, &hWndTop);

// some extra precautions are required to use MAPISendMail as it
// tends to enable the parent window in between dialogs (after
// the login dialog, but before the send note dialog).
pParentWnd->SetCapture();
::SetFocus(NULL);
pParentWnd->m_nFlags |= WF_STAYDISABLED;

int nError = lpfnSendMail(0, (ULONG)pParentWnd->GetSafeHwnd(),
&message, MAPI_LOGON_UI|MAPI_DIALOG, 0);
s.ReleaseBuffer();

// after returning from the MAPISendMail call, the window must
// be re-enabled and focus returned to the frame to undo the workaround
// done before the MAPI call.
::ReleaseCapture();
pParentWnd->m_nFlags &= ~WF_STAYDISABLED;

pParentWnd->EnableWindow(TRUE);
::SetActiveWindow(NULL);
pParentWnd->SetActiveWindow();
pParentWnd->SetFocus();
if (hWndTop != NULL)
::EnableWindow(hWndTop, TRUE);
AfxGetApp()->EnableModeless(TRUE);

if (nError != SUCCESS_SUCCESS &&
nError != MAPI_USER_ABORT && nError != MAPI_E_LOGIN_FAILURE)
{
AfxMessageBox(AFX_IDP_FAILED_MAPI_SEND);
}
::FreeLibrary(hMail);
}
我自己编了一个生成ADO表集类的软件，自动生成，类型自动转换，自动处理连接参数，有谁想要的话，请和我联系,[e-mail]