百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 技术文章 > 正文

VC|基于对话框的应用程序发送可以添加附件的邮件

cac55 2024-09-20 12:58 23 浏览 0 评论

1 下载并注册JMail组件

1.1 下载jmail.dll文件放到C:\Windows\System32文件夹中和项目路径下

下载地址:http://www.onlinedown.net/soft/620751.htm

1.2 注册jmail.dll组件,win+R→regsvr32 jmail.dll

2 新建基于对话框的应用程序

2.1 添加以下控件:

各控件ID参照下面代码。

2.2 在stdafx.h文件中引入JMail组件

#import "jmail.dll"
using namespace jmail;

2.3 初始化类库

BOOL JMail::OnInitDialog() 
{
……
	HRESULT hr=::CoInitialize(NULL);
	if(!SUCCEEDED(hr))
		return FALSE;
}

3 add按钮(添加附件)对应代码:

void CJMailDlg::OnAdd() 
{
	CFileDialog file(true,"file",NULL,OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, "所有文件|*.*||",this);
	if(file.DoModal()==IDOK)
	{
		CString str;
		str=file.GetPathName();
		GetDlgItem(IDC_EDATT)->SetWindowText(str);
	}
}

4 send按钮对应代码

void CJMailDlg::OnBtsend() 
{
	CString strserver;
	CString strrece;
	CString strsubject;
	CString strbody;
	CString stratt;
	CString strfrom;
	GetDlgItem(IDC_EDRECE)->GetWindowText(strrece);
	GetDlgItem(IDC_EDSUBJECT)->GetWindowText(strsubject);
	GetDlgItem(IDC_EDBODY)->GetWindowText(strbody);
	GetDlgItem(IDC_EDATT)->GetWindowText(stratt);
	GetDlgItem(IDC_SMTP)->GetWindowText(strserver);
	GetDlgItem(IDC_EDFROM)->GetWindowText(strfrom);
	if(strfrom.IsEmpty())
	{
		AfxMessageBox("请填写发信人地址");
		return;
	}
	if(strrece.IsEmpty())
	{
		AfxMessageBox("请填写收信人地址");
		return;
	}
	jmail::IMessagePtr jmsg;
	jmsg.CreateInstance(__uuidof(jmail::Message));
	jmsg->AddRecipient((LPCTSTR)strrece,"","");
	jmsg->Charset = "GB2312"; 
	jmsg->Subject=(LPCTSTR)strsubject;
	jmsg->Body=(LPCTSTR)strbody;
	jmsg->From=(LPCTSTR)strfrom;
	jmsg->MailServerUserName = "name@163.com";
	jmsg->MailServerPassWord = "password";//发送邮箱密码
	jmsg->AddCustomAttachment((_bstr_t)stratt,(_bstr_t)"jmail",VARIANT_FALSE);
	try{
		//jmsg->Send((LPCTSTR)strserver,VARIANT_FALSE);
		//jmsg->Send("smtp.163.com", VARIANT_FALSE);
		jmsg->Send(strserver.GetBuffer(0),VARIANT_FALSE);
	}
	catch(_com_error e)
	{
		CString strerr;
		strerr.Format("%s\r\n错误描述是%s",(LPCTSTR)e.ErrorMessage(),
			(LPCTSTR)e.Description());
		AfxMessageBox(strerr);
	}
	//AfxMessageBox("发送成功");
	//m_status = "sended successfully!";
	GetDlgItem(IDC_status)->SetWindowText("sended successfully!");
}

5 也可以初始化各文本框的值

BOOL CJMailDlg::OnInitDialog()
{
	CDialog::OnInitDialog();
	……
	GetDlgItem(IDC_SMTP)->SetWindowText("smtp.163.com");
	GetDlgItem(IDC_EDFROM)->SetWindowText("name@163.com");
	GetDlgItem(IDC_EDRECE)->SetWindowText("name@163.com");
	GetDlgItem(IDC_EDSUBJECT)->SetWindowText("website.rar");
	GetDlgItem(IDC_EDATT)->SetWindowText("C:\\Users\\username\\Desktop\\website.rar");
	GetDlgItem(IDC_EDBODY)->SetWindowText("");
	return TRUE; // return TRUE unless you set the focus to a control
}

运行后点击“发送”按钮,打开163邮箱:

_End_

相关推荐

Mac右键菜单如何设置?_mac 右键菜单

Mac的用户都知道,Mac和Windows很大的区别在于,Windows可以使用鼠标右键完成的很多快捷操作,例如右键剪切、右键新建文件、右键快速访问等等。在工作学习中,这种快捷操作会大大提高我们的工作...

Office局部加密隐藏信息_office隐藏修改痕迹

除了日常使用的图片、音视频文件外,我们还常常和别人共享使用一些Word或Excel办公文件。而这些文件中的部分内容,也许是我们不希望别人看到的。这时,就需要对Word文档或Excel表格中的部分数据实...

不常见但100%好用的电脑快捷键_最全的电脑快捷键

办公人士或者经常使用电脑的人已经熟悉了常见的Ctrl+C/V等快捷键,想要更高效、专业的操作技巧来提升工作效率。接下来,同创双子双子IT运维工程师帮忙整理了一些不太常见但非常有用的快捷键。比如Alt+...

U盘文件被隐藏怎么恢复 U盘文件恢复隐藏的方法

U盘文件被隐藏怎么恢复?U盘文件被隐藏其实这是中了一种U盘病毒,它会恶意的将U盘中的文件夹隐藏起来,采用常规的方法,都无法打开查看。这种U盘病毒会把文件夹的属性给篡改掉,文件设置被改成只读、隐藏,在文...

win7查看隐藏的文件怎么操作 win7如何打开隐藏文件

win7查看隐藏的文件怎么操作?在使用电脑时,有一些用户会将文件设置为隐藏属性,以保护隐私。此外,还有一些系统文件默认处于隐藏状态。那么,如何操作才能打开这些隐藏文件呢?小编今天在这就为大家分享一下w...

系统小技巧:八个实用设置 藏于桌面右键

我们除了在桌面上执行鼠标单、双击操作外,常常也会用右键菜单命令查看文件或显示属性等。其实,除此之外,桌面里还隐藏着不少可被我们利用的实用右键操作项目。下面的这些Windows10桌面右键操作技巧,不...

移动硬盘中的隐藏文件如何恢复显示?可尝试这些方法

在使用移动硬盘的过程中,有时我们可能会遇到一些文件突然变得不可见或“隐藏”的情况。这种情况可能是由于多种原因造成的,如文件系统错误、病毒感染或误操作等。面对隐藏的文件,许多用户可能会感到困惑和不知所措...

Win11怎么查看隐藏文件和文件夹?_如何查看windows隐藏文件夹

一般来说系统会对比较重要的文件和文件夹添加隐藏属性,很多朋友可能找半天都找不到,那么怎么找出这些隐藏文件和文件夹呢,今天系统之家小编来教大家Win11显示隐藏文件的设置方法,操作步骤其实挺简单的,希望...

隐藏电脑文件(夹)竟如此简单!再也不怕被偷窥了

导读:谁的电脑硬盘中还不存有一些珍藏多年的学习资料,可为了保护它们各位学习爱好者也真的是煞费苦心,不管是层层文件夹“套娃”隐藏也好,修改文件名甚至修改后缀名也好,效果都是非常差的,本期文章小君就聊一聊...

怎么打开隐藏文件夹?_文件夹怎么弄

有时在电脑上,我们会发现之前的文件或者文件夹不见了,很多人会觉得会不会是误删了文件之类的。其实还有一种可能,就是你的文件或者文件夹被隐藏起来了。怎么打开隐藏文件夹?一、文件或者文件夹被隐藏的原因隐藏是...

移动硬盘上的隐藏文件怎么能找出来

移动硬盘作为一种小巧而便携式的硬盘存储器,具备容量大、兼容性好、即插即用等优势,被广泛应用于办公和家庭生活中,那么在使用移动硬盘过程中,你是否遇到了文件被隐藏的问题呢?本文将介绍恢复移动硬盘隐藏文件的...

系统小技巧:“发送到”菜单问题巧解决

此前,我们已经通过本刊的一些文章熟悉了通过手动或软件的方法定制“发送到”菜单的基本方法。在使用“发送到”菜单的过程中,还可能会遇到一些问题。例如:“发送到”菜单越用越长,能不能在不编辑删减的情况下,调...

WIN 10系统介绍(21) 重要文件的隐藏 私密文件的保护 显示隐藏文件

大家好,今天介绍电脑中重要文件和文件夹的隐藏以及显示。在每个人使用的电脑中,都有一些个人的私密的资料,比如一些账目,或者个人的照片,信件,技术文档,视频等等的一些资料。我们可能不希望所有登录的用户,都...

状态栏在哪?手机+电脑+软件里的它 一篇讲清位置和功能

状态栏就是设备或软件里显示状态信息的区域,能让你快速知道时间、电量等情况。下面告诉你不同设备和软件里状态栏在哪儿、有啥用。手机上的状态栏位置:屏幕最顶端的窄条,不管用什么APP,基本都在这儿。显示...

excel隐藏的部分内容如何显示出来?3个方法帮助你!

excel隐藏的部分如何显示出来?你是否曾经在Excel中遇到过某些单元格被隐藏,或者某些数据在编辑时突然消失,让你感到困惑和无助?不要担心,今天我将向你揭示如何解决这些问题,让你轻松显示隐藏的部分。...

取消回复欢迎 发表评论: