用条件判断就行了
发邮件核心函数用这个
Sub emailTo(ByVal toEmail As String, Optional ByVal toCC As String, Optional ByVal toBCC As String, Optional ByVal toSubject As String, Optional ByVal toBody As String, Optional ByVal attach As String, Optional ByVal doPaste As Boolean = False)
'支持群发邮件 (相同主题、正文) _
Email地址用:隔开 支持直接使用姓名、通讯组列表名 _
附件路径用:隔开
With Application
'.EnableEvents = False
'.ScreenUpdating = False
End With
Dim myOL As New Outlook.Application, myMail As MailItem, myNamespace As Namespace, myDistList As DistListItem, myFolder As Folder, emailAry(2), ccAry, bccAry, attachAry, tmpStr As String
Set myOL = New Outlook.Application
Set myNamespace = myOL.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
'myFolder.display
emailAry(0) = toEmail
emailAry(1) = toCC
emailAry(2) = toBCC
attachAry = Split(attach, ";")
Set myMail = myOL.CreateItem(olMailItem)
With myMail
.To = toEmail
.cc = toCC
.BCC = toBCC
.Subject = toSubject
.BodyFormat = olFormatHTML
.HTMLBody = '批量发送邮件VBA by zzllrr iMacro V1.0'
'.body = toBody
If UBound(attachAry) -1 Then
For Each att In attachAry
.Attachments.Add att
Next att
End If
'Application.ActivateMicrosoftApp xlMicrosoftMail
.display
'myOL.ActiveExplorer
'AppActivate myMail
SendKeys "{TAB}" '从subject切换到正文
If doPaste Then
Application.Wait Now + TimeValue("00:00:04")
SendKeys "{END}"
SendKeys "^v"
'SendKeys "~"
End If
Application.Wait Now + TimeValue("00:00:02")
' .Save
' .Close olSave
'.send
End With
Set myMail = Nothing
Set myOL = Nothing
End Sub
这是一个VBA函数发送邮件的例子。
你修改一下(例如添加一个循环)就可以得到你需要的应用。
*********************************************************************************
Public Sub MyMail(Address As String)
‘首先创建一个Outlook的应用程序的变量
Dim Ol As Outlook.Application
’把这个变量指向一个具体的Outlook应用
Set Ol = CreateObject("Outlook.Application")
‘创建一个邮件变量
Dim M As Outlook.MailItem
’把邮件变量指向由Outlook应用程序创建出的邮件实例
Set M = Ol.CreateItem(olMailItem)
‘为邮件填写发送地址——这个内容,今后用你的循环内容来赋值
M.To = Address
’把邮件发送出去
M.Send
End Sub
*********************************************************************************
sendEmail是一个轻量级,命令行的 *** TP邮件客户端。如果你需要使用命令行发送邮件,那么sendEmail是非常完美的选择:使用简单并且功能强大.这个被设计用在php、bash
perl和web站点使用。
以上是sendEmail的简单介绍,千万不要和sendmail搞混掉了。用了sendEmail你将不在喜欢sendmail了.
下载安装sendEmail
sendEmail下载地址:
# wget //下载1.56版本
# tar -xzvf sendEmail-v1.56.tar.gz //解压后就可以使用了
# mv sendEmail /usr/local/bin/
发送邮件
# /usr/local/bin/sendEmail -f ttlsafrom@163.com -t ttlsato@qq.com \
-s *** tp.163.com -u "我是邮件主题" -o message-content-type=html \
-o message-charset=utf8 -xu ttlsafrom@163.com -xp 123456 -m "我是邮件内容"
命令说明:
/usr/local/bin/sendEmail 命令主程序
-f ttlsafrom@163.com 发件人邮箱
-s *** tp.163.com 发件人邮箱的 *** tp服务器
-u "我是邮件主题" 邮件的标题
-o message-content-type=html 邮件内容的格式,html表示它是html格式
-o message-charset=utf8 邮件内容编码
-xu ttlsafrom@163.com 发件人邮箱的用户名
-xp 123456 发件人邮箱密码
-m "我是邮件内容" 邮件的具体内容
你需要先配置IIS *** TP服务器才能正确使用。
这个很复杂的,要自己写 *** TP POP3 MailMessage等类。
如果只是简单的电子邮件运用,建议你用MAPI操作。
MAPI很简单。你只要在网上搜一下MAPI.h就可以直接用了。
mapi32.dll是系统自带的。加载进来就可以了。
下面是代码,网上搜到处都是。
LHANDLE loghandle;
ULONG res = m_MAPILogon( 0,NULL,NULL,0,0,loghandle );
CString ss;
ss.Format( "%d",res );
CString strsubject,strbody;
strsubject = mailSubject;
strbody = mailBody;
CTime time = CTime::GetCurrentTime();
CString strtime = time.Format( "%y//%m//%d//%H" );
CString address1,address2;
address1 = user
address2 = " *** TP:" + user + "@qq.com";
MapiMessage message;
//subject of the mail
message.lpszSubject = strsubject.GetBuffer(0);
//body of the mail
message.lpszNoteText = strbody.GetBuffer(0);
message.lpszMessageType = NULL;
//time sending
message.lpszDateReceived = strtime.GetBuffer(0);
message.lpszConversationID = NULL;
message.flFlags = MAPI_SENT;
//sender message
message.lpOriginator = NULL;
message.nRecipCount = 1;//reciver count
MapiRecipDesc reci = { 0,MAPI_TO,address1.GetBuffer(0),address2.GetBuffer(0),0,NULL };
//IMessage::
//MapiRecipDesc reci1 = { 0,MAPI_TO,add1.GetBuffer(0),add2.GetBuffer(0),0,NULL };
message.lpRecips = reci;
// message.lpRecips = reci1;
message.lpFiles = 0;//attachment
message.nFileCount = 0;//attachment count
int lresult = m_MAPISendMail( loghandle,0,message,0,0);
《赛博朋克2077》加点流派是什么? 如下参考:1、伏击流关键属性:镇定、反应。2、工程流植入体:群体定位(必带且最好是高级高品质),其余可以带爆头伤害、暴击伤害一类的植入体。3、黑客流关键属性:智力...
iphonex手机邮件怎么延长显示时间 1、首先找到手机上的设置选项,点击进入到设置后台在设置里面找到账号与密码,点击进入进入之后,点击添加账号选项进入到添加账户之后,这里有许多中邮箱选项,选择需要的...
gmail账号被别人换绑了怎么办 解除Gmail的绑定有两种方法:一种是直接恢复出厂设置(这种方法会清空你手机上所安装的程序以及联系人等资料,如果你只想解除Gmail绑定的话不推荐使用此方法!)另一种...
双色球开奖的号码会不会有人控制出什么号码的吗的? 是的国外的彩票是停止售彩后立即摇奖,福彩部门不知道彩民买了哪些号码。再看看中国,每期都是7点截止售彩,8点半再摇奖,其中为什么要间隔一个半小时?我告诉...
请问电子邮箱地址是什么,怎么填写,救急 电子邮箱地址就是电子邮箱账号。首先你要下载和注册一个电子邮箱。你可以下载邮箱大师。邮箱大师下载后选择自己喜欢的邮箱域名注册邮箱。(比如126邮箱。136邮箱等等...
猎聘简历怎么发给微信好友 将简历下载到电脑上,然后通过微信电脑版进行发送。具体方法如下:1、下载安装电脑版微信。2、运行电脑版微信,通过手机微信扫一扫电脑上的二维码。3、手机上点击确认,电脑上就登录微...