发送邮件的问题

2004-09-19 09:59:37 261 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别以为你站在珠峰就能看到全世界墨衍会员 · AI 创作全网分发关注 + 加入社区

邮件发送不成功的问题此方法不阻止调用线程，并允许调用方将对象传递给操作完成后调用的方法。在邮件发送时选用Smtp服务，选用的方法时smtp.SendAsync(msg,object);在调用此方法之前，Host必须通过配置文件设置相关属性或将此信息传递到构造函数中SmtpClient(String, Int32)来设置和Port。此方法不阻止调用线程，并允许调用方将对象传递给操作完成后调用的方法。此方法不阻止调用线程，并允许调用方将对象传递给操作完成后调用的方法。阅读详情

HMODULE hMod=LoadLibrary("MAPI32.DLL");
if(hMod == NULL)
{
printf("LoadLibrary fail.\n");
return ;
}

ULONG (PASCAL *lpfnSendMail) (ULONG, ULONG, MapiMessage *, FLAGS, ULONG);
(FARPROC &)lpfnSendMail=GetProcAddress(hMod, "MAPISendMail");
if(lpfnSendMail == NULL)
{
printf("GetProcAddress fail.\n");
return ;
}

MapiFileDesc attachment=
{
0, // ulReserved, must be 0
0, // no flags; this is a data file
(ULONG) - 1, // position not specified
argv[0], // pathname, if original filename is NULL, this is the filename
NULL, // original filename
NULL
}; // MapiFileTagExt unused
MapiRecipDesc recip={ 0, MAPI_TO,"nowcan", "nowcan@163.com", 0, NULL };

MapiMessage message=
{
0, // reserved, must be 0
"测试", // subject
"我在csdn的名称是\n\nBIOS测试结果见附件。", // note text
NULL, // NULL = interpersonal message
NULL, // no date; MAPISendMail ignores it
NULL, // no conversation ID
0L, // no flags, MAPISendMail ignores it
NULL, // no originator, this is ignored too
1, // recipients
&recip, // recipient array
1, // one attachment
&attachment
}; // the attachment structure
int nError=lpfnSendMail(0, 0, &message, MAPI_LOGON_UI | MAPI_DIALOG, 0);

// 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.

if(nError != SUCCESS_SUCCESS && nError != MAPI_USER_ABORT && nError != MAPI_E_LOGIN_FAILURE)
{
printf("SendMail fail.\n");
}

FreeLibrary(hMod);

这段代码可以用来发邮件，在控制台里完全没有问题，如果普通的就会有问题，弹出来的outlook窗体不能控制，不知道什么原因，请指教，这个代码是在nowcan的网站的

...全文

Surface Pro 4/5/6/7保姆级黑苹果安装：从Windows分区到OC引导配置全流程（含EFI文件替换避坑）本文详细介绍了在Surface Pro 4/5/6/7上安装黑苹果的全流程，包括Windows分区、OC引导配置和EFI文件替换等关键步骤。通过实战经验分享，帮助用户避开常见陷阱，实现Windows与macOS双系统完美共存，特别适合对黑苹果安装感兴趣的Surface Pro用户。阅读详情

别以为你站在珠峰就能看到全世界

C++ Builder 13,871 成员 102,696 内容

+ 关注 + 加入社区

切换为时间正序

Leighf 2005-03-08

打赏
举报

up
同问！

datland 2004-10-05

打赏
举报

最好用多线程.
发现一个可以下载(Delphi)代码的地方:
http://www.datcn.com/luntan/dispbbs.asp?boardID=26&ID=879

65867135 2004-10-05

打赏
举报

一点都不懂啊感觉自己苯死了

特招 2004-09-22

打赏
举报

在头文件里加上

#include “idcoder3to4.hpp“

用Base64Encode()函数对用户名和密码编码

void __fastcall TForm1::Button1Click(TObject *Sender)
{
NMSMTP1->Host = "smtp.163.com"; //SMTP主机名
NMSMTP1->UserID = "dgyanyong"; //用户名
NMSMTP1->PostMessageA->FromAddress = "dgyanyong@163.com"; //发信人地址
NMSMTP1->PostMessageA->ToAddress->Clear(); //收信人地址清空
NMSMTP1->PostMessageA->ToAddress->Text = "dgyanyong@sina.com"; //收信人地址
NMSMTP1->PostMessageA->ToCarbonCopy->Text = "dgyanyong@chinaren.com"; //抄送地址
NMSMTP1->PostMessageA->ToBlindCarbonCopy->Text = "dgyanyong@163.com"; //暗送地址
NMSMTP1->PostMessageA->Subject = "test message"; //邮件标题
NMSMTP1->PostMessageA->Body->Add("this is a test message!"); //邮件内容
NMSMTP1->PostMessageA->Attachments->Text = "C:\\qq.doc"; //邮件附件
NMSMTP1->PostMessageA->LocalProgram = "SendMail";
NMSMTP1->Connect();
if (CheckBox1->Checked == true)
{
AnsiString userName = Base64Encode("dgyanyong"); //将用户名编码
AnsiString password = Base64Encode("dgyanyong"); //将密码编码
NMSMTP1->Transaction("auth login"); //开始验证
NMSMTP1->Transaction(userName);
NMSMTP1->Transaction(password);
}
NMSMTP1->SendMail();
Memo1->Lines->Add("发送邮件成功");
NMSMTP1->Disconnect();

}

别以为你站在珠峰就能看到全世界 2004-09-20

打赏
举报

#include <windows.h>
#include <mapi.h>
#include <stdio.h>
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

}
//---------------------------------------------------------------------------

void SendEmail(char* str_name,char* str_email,char* str_subject,char* str_Text,char* pathname)
{
HMODULE hMod=LoadLibrary("MAPI32.DLL");
if(hMod == NULL)
{
//printf("LoadLibrary fail.\n");
return ;
}

ULONG (PASCAL *lpfnSendMail) (ULONG, ULONG, MapiMessage *, FLAGS, ULONG);
(FARPROC &)lpfnSendMail=GetProcAddress(hMod, "MAPISendMail");
if(lpfnSendMail == NULL)
{
//printf("GetProcAddress fail.\n");
return ;
}

MapiFileDesc attachment=
{
0, // ulReserved, must be 0
0, // no flags; this is a data file
(ULONG) - 1, // position not specified
pathname,//argv[0], // pathname, if original filename is NULL, this is the filename
NULL, // original filename
NULL
}; // MapiFileTagExt unused
MapiRecipDesc recip={ 0, MAPI_TO, str_name, str_email, 0, NULL };

MapiMessage message=
{
0, // reserved, must be 0
str_subject,//"测试", // subject
str_Text,//"我在csdn的名称是\n\nBIOS测试结果见附件。", // note text
NULL, // NULL = interpersonal message
NULL, // no date; MAPISendMail ignores it
NULL, // no conversation ID
0L, // no flags, MAPISendMail ignores it
NULL, // no originator, this is ignored too
1, // recipients
&recip, // recipient array
1, // one attachment
&attachment
}; // the attachment structure
int nError=lpfnSendMail(0, 0, &message, MAPI_LOGON_UI | MAPI_DIALOG, 0);

// 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.

if(nError != SUCCESS_SUCCESS && nError != MAPI_USER_ABORT && nError != MAPI_E_LOGIN_FAILURE)
{
//printf("SendMail fail.\n");
}

FreeLibrary(hMod);

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
SendEmail("asc",
"test@163.com",
"Test",
"附件测试",
"C:\\3.ico");
}

完整代码大家说说啊

2001ligy 2004-09-20

打赏
举报

molan020 2004-09-20

打赏
举报

别以为你站在珠峰就能看到全世界 2004-09-20

打赏
举报

对了还要头文件

#include <mapi.h>
//#include <stdio.h>
//#include <windows.h>

我不行用控件，而且用shellExecute的话无法发送附件
哪位高手帮帮忙！
3q

特招 2004-09-20

打赏
举报

这段代码不太清楚
不过发邮件的程序,其实很简单的
用IdSMTP和NMSMTP都很容易,例子详见:
http://blog.csdn.net/dgyanyong
参考一下,可以自己做个dll控制邮件的发送

molan020 2004-09-20

打赏
举报

huabihan 2004-09-20

打赏
举报

怎么发送文件到邮箱啊？？？？

发送邮件的问题

相关推荐