Setting an Email Reminder with VBA

[cfoye130]

I'm trying to set an email reminder to fire at 3pm on a date specified in the ctl_lbl_DueDateValue label on a user form.

I can't seem to get this to work. Anyhelp would be appreciated. Thanks! (Using Outlook and Excel '03)

Sub SendEmail(EmailContent As String)
    Dim OutlookApp As Object
    Dim EmailContent As String
    Dim duedateval As Date
 
    Const olMailItem = 0
 
    Set OutlookApp = CreateObject("Outlook.Application")
 
    With OutlookApp.CreateItem(olMailItem)
        .To = ""
        .Subject = "Operational Risk - Key Risk Metric Data Entry Due"
        .Body = EmailContent
        .attachments.Add ThisWorkbook.FullName
        .importance = 2
        .ReminderSet = True
        .ReminderTime = "15:00"
        duedateval = form_UI.ctl_lbl_Duedatevalue
        .duedate = Now
        .Display
    End With
End Sub

 

[AlphaFrog]

It looks like you are mixing Email properties (.To) with Task properties (.DueDate)

This creates a task in Outlook.

Sub SendEmail(EmailContent As String)

    Dim OutlookApp As Object
 
    Set OutlookApp = CreateObject("Outlook.Application")

    With OutlookApp.CreateItem([COLOR="Red"]olTaskItem[/COLOR])
        .Subject = "Operational Risk - Key Risk Metric Data Entry Due"
        .Body = EmailContent
        .attachments.Add ThisWorkbook.FullName
        .importance = 2
        .ReminderSet = True
        .ReminderTime = "15:00"
        .DueDate = DateValue(form_UI.ctl_lbl_Duedatevalue)
        .Display
    End With
    
End Sub

 

[cfoye130]

Ah, well that does help.

What then would be the properties I would use to set a due date flag for an email?

 

[AlphaFrog]

I haven't tried this....

Sub SendEmail(EmailContent As String)

    Dim OutlookApp As Object
 
    Set OutlookApp = CreateObject("Outlook.Application")

    With OutlookApp.CreateItem([COLOR="Red"]olMailItem[/COLOR])
        .To = "JohnDoe@Blah.com"
        .Subject = "Operational Risk - Key Risk Metric Data Entry Due"
        .Body = EmailContent
        .attachments.Add ThisWorkbook.FullName
        [COLOR="Red"].DeferredDeliveryTime = DateValue(form_UI.ctl_lbl_Duedatevalue)[/COLOR]
        .Send
    End With
    
End Sub