outlook如何周期性定时发邮件

Posted 2023-05-16

outlook如何周期性定时发邮件

在Outlook中，用户可以指定邮件发送的日期和时间，即用户可以推迟邮件的发送时间，其具体操作步骤如下。

（1）创建新邮件，然后在“选项”选项卡的“其他选项”选项组中，单击【对话框启动器】按钮，如图1所示。

图1 单击【对话框启动器】按钮

（2）在随即打开的“邮件选项”对话框中，选中“传递选项”选项区域中的“传递不早于”复选框，并设置发送邮件的日期和时间，如图2所示。

图2 设置邮件发送的日期和时间

（3）单击【关闭】按钮关闭对话框，返回“邮件”窗口。单击【发送】按钮，邮件便会被自动保存在“发件箱”中，当指定的发送时间到达时，邮件会被自动发送出去。

参考技术A 新建一个约会或会议，正文里输入邮件内容；
在“动作”菜单上，单击“重复周期”；
单击约会重复进行的频率（“按天”、“按周”、“按月”或“按年”），然后选定该频率的选项。
OK!

vb outlook发邮件

Function SendEmail(ByVal sMail, ByVal sSubject, ByVal sBody, ByVal sCC)

Dim objOutlook As New Outlook.Application
   '定义outlook邮件的对象变量
   Dim objMail As MailItem
Dim strTo As Variant
Dim sptTo() As String
   '创建objOutlook为Outlook应用程序对象
   Set objOutlook = New Outlook.Application
   '创建objMail为一个邮件对象
   Set objMail = objOutlook.CreateItem(olMailItem)
   
   sptTo = Split(sMail, ";")

    With Application
    .EnableEvents = False
    .ScreenUpdating = False
    End With

    With objMail
        .Subject = sSubject
        
        .HTMLBody = sBody
                
        For Each strTo In sptTo()
            If Len(Trim(strTo)) <> 0 Then
                .Recipients.Add strTo
                
            End If
        Next
         .CC = sCC
    
        .Display
    End With

    With Application
    .EnableEvents = True
    .ScreenUpdating = True
    End With
End Function

Sub send email()
Dim wb_Marco As Workbook

Dim wsh2 As Worksheet

Dim strMail As Variant, strSubject As String
Dim strBody As String, strOutlook As String
Dim strCC As Variant
Application.ScreenUpdating = False

Set wb_Marco = ThisWorkbook
 

'发送邮件
'Set wsh2 = wb_Marco.Worksheets("Email ")
'    With ActiveSheet
'        strMail = wsh2.Range("B4").Value
'        strSubject = wsh2.Range("B2").Value
'        strBody = wsh2.Range("B3").Value
'    End With
'    SendEmail strMail, strSubject, strBody
'    MsgBox "发送邮件完毕！", vbInformation + vbOKOnly, "提示"

'wb_Source.Close 关闭excel

End Sub