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

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

cac55 2024-09-20 12:58 21 浏览 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电脑强制删除任何软件方法-含自启动应用

对于打工者来说,进入企业上班使用的电脑大概率是会被监控起来,比如各种流行的数据防泄漏DLP,奇安信天擎,甚至360安全卫士,这些安全软件你想卸载是非常困难的,甚至卸载后它自己又安装回来了,并且还在你不...

Linux基础知识 | 文件与目录大全讲解

1.linux文件权限与目录配置1.文件属性Linux一般将文件可存取的身份分为三个类别,分别是owner/group/others,且三种身份各read/write/execute等权限文...

文件保护不妥协:2025 年 10 款顶级加密工具推荐

数据安全无小事,2025年这10款加密工具凭借独特功能脱颖而出,从个人到企业场景全覆盖,第一款为Ping32,其余为国外英文软件。1.Ping32企业级加密核心工具,支持200+文件格...

省心省力 一个软件搞定系统维护_省心安装在哪里能找到

◆系统类似于我们居住的房间,需要经常打理才能保持清洁、高效。虽然它本身也自带一些清理和优化的工具,但借助于好用的第三方工具来执行这方面的任务,会更让人省心省力。下面笔者就为大家介绍一款集多项功能于一身...

JAVA程序员常用的几个工具类_java程序员一般用什么软件写程序

好的工具做起事来常常事半功倍,下面介绍几个开发中常用到的工具类,收藏一下,也许后面真的会用到。字符串处理:org.apache.commons.lang.StringUtilsisBlank(Char...

手工解决Windows10的若干难题_windows10系统卡顿怎么解决

【电脑报在线】很多朋友已经开始使用Win10,估计还只是测试版本的原因,使用过程中难免会出现一些问题,这里介绍解决一些解决难题的技巧。技巧1:让ProjectSpartan“重归正途”从10074...

System32文件夹千万不能删除,看完这篇你就知道为什么了

C:\Windows\System32目录是Windows操作系统的关键部分,重要的系统文件存储在该目录中。网上的一些恶作剧者可能会告诉你删除它,但你不应该尝试去操作,如果你尝试的话,我们会告诉你会发...

Windows.old 文件夹:系统备份的解析与安全删除指南

Windows.old是Windows系统升级(如Win10升Win11)或重装时,系统自动在C盘创建的备份文件夹,其核心作用是保留旧系统的文件、程序与配置,为“回退旧系统”提供保...

遇到疑难杂症?Windows 10回收站问题巧解决

回收站是Windows10的一个重要组件。然而,我们在使用过程中,可能会遇到一些问题。例如,不论回收站里有没有文件,都显示同一个图标,让人无法判别回收站的空和满的真实情况;没有了像Windows7...

卸载软件怎么彻底删掉?简单几个步骤彻底卸载,电脑小白看过来

日常工作学习生活中,我们需要在安装一些软件程序,但随着软件的更新迭代速度,很多时候我们需要重新下载安装新的程序,这时就需要将旧的一些软件程序进行卸载。但是卸载软件虽然很简单,但是很多小伙伴们表示卸载不...

用不上就删!如何完全卸载OneDrive?

作为Windows10自带的云盘,OneDrive为资料的自动备份和同步提供了方便。然而,从隐私或其他方面考虑,有些人不愿意使用OneDrive。但Windows10本身不提供直接卸载OneDri...

【Linux知识】Linux下快速删除大量文件/文件夹方法

在Linux下,如果需要快速删除大量文件或文件夹,可以使用如下方法:使用rm命令删除文件:可以使用rm命令删除文件,例如:rm-rf/path/to/directory/*这个命令会递...

清理系统不用第三方工具_清理系统垃圾用什么软件

清理优化系统一定要借助于优化工具吗?其实,手动优化系统也没有那么神秘,掌握了方法和技巧,系统清理也是一件简单和随心的事。一方面要为每一个可能产生累赘的文件找到清理的方法,另一方面要寻找能够提高工作效率...

系统小技巧:软件卸载不了?这里办法多

在正常情况下,我们都是通过软件程序组中的卸载图标,或利用控制面板中的“程序和功能”模块来卸载软件的。但有时,我们也会发现利用卸载图标无法卸载软件或者卸载图标干脆丢失找不到了,甚至控制面板中卸载软件的功...

麒麟系统无法删除文件夹_麒麟系统删除文件权限不够

删除文件夹方法例:sudorm-rf文件夹名称。删除文件方法例:sudorm-r文件名包括扩展名。如果没有权限,给文件夹加一下权限再删。加最高权限chmod775文件名加可执行权限...

取消回复欢迎 发表评论: