UC知道vba 怎么发Reminder邮件？？？
来源：百度知道 编辑：UC知道 时间：2024/05/16 06:12:37
我在网上找到很多用vba发邮件的代码，但是却很难找到发Reminder邮件的方法，请教各位应该怎么发？？
我发邮件的代码如下：
Public Sub SendEmail(ByVal Receiver As String, ByVal CCList As String)
Dim OutlookApp As Outlook.Application
Dim OutlookItem As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Set OutlookItem = OutlookApp.CreateItem(olMailItem)
Err.Description = ""
On Error GoTo SendEmail_Error
With OutlookItem
.To = Receiver
.CC = CCList
.Subject = "Send Mail Test"
.Body = "HoHo"
.ReminderSet = True
.ReminderTime = "2009-03-13 19:00"
.Send
End With
SendEmail_Exit:
Set OutlookApp = Nothing
Set OutlookItem = Nothing
Exit Sub
SendEmail_Error:
If Err.Description <> "" Then
MsgBox Err.Description
End If
Resume Se
我发邮件的代码如下：
Public Sub SendEmail(ByVal Receiver As String, ByVal CCList As String)
Dim OutlookApp As Outlook.Application
Dim OutlookItem As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Set OutlookItem = OutlookApp.CreateItem(olMailItem)
Err.Description = ""
On Error GoTo SendEmail_Error
With OutlookItem
.To = Receiver
.CC = CCList
.Subject = "Send Mail Test"
.Body = "HoHo"
.ReminderSet = True
.ReminderTime = "2009-03-13 19:00"
.Send
End With
SendEmail_Exit:
Set OutlookApp = Nothing
Set OutlookItem = Nothing
Exit Sub
SendEmail_Error:
If Err.Description <> "" Then
MsgBox Err.Description
End If
Resume Se
改成AppointmentItem试试，没有用Outlook，所以也没办法试。
Dim OutlookApp As Outlook.Application
Dim OutlookItem As Outlook.AppointmentItem
Set OutlookApp = New Outlook.Application
Set OutlookItem = OutlookApp.CreateItem(olAppointmentItem)
假如你是浙江大学的就好了