如果要Excel满足条件向指定的邮箱发Mail,

2025-04-03 03:41:38

推荐回答（3个）

回答1：

用条件判断就行了

发邮件核心函数用这个

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

回答2：

Outlook么？
1052974911@qq.com

回答3：

这个得用宏，或者写VBA代码实现了

最新问答

月饼的保质期一般是多久？

格林公式计算曲线积分

本人专升本，英语专业的.有没有人能帮写毕业论文

我的新柴490发动机为什么怠速着火机油压力

铺设客厅全抛釉地砖两块之间缝隙多少亳

数字媒体艺术设计应届生求职简历怎样写

从永徳到修水县有多少公里?

如何谈艺术的形象性、真实性、典型性及其关系

云海螺的英语老师教的怎么样

从长春到南昌怎么走