VBA and Outlook.

This application will demonstrate how to connect AutoCAD and Outlook using VBA. It will allow you to add a Task to Outlook along with a reminder time and a due time. Special thanks to Randall Raath of VBDesign for this idea.

Here is the complete source coding : 

Private Sub CommandButton1_Click()
UserForm1.Hide
AddTask
End Sub
Sub AddTask()
Dim appOutLook As Outlook.Application
Dim taskOutLook As Outlook.TaskItem
Dim Rem1 As Integer
Dim Due1 As Integer

Set appOutLook = CreateObject("Outlook.Application")
Set taskOutLook = appOutLook.CreateItem(olTaskItem)

Rem1 = (CInt(UserForm1.TextBox3.Text) * 60) _
+ CInt(UserForm1.TextBox5.Text)
Due1 = (CInt(UserForm1.TextBox4.Text) * 60) _
+ CInt(UserForm1.TextBox6.Text)
With taskOutLook
.Subject = UserForm1.TextBox1.Text
.Body = UserForm1.TextBox2.Text

.ReminderSet = True


.ReminderTime = DateAdd("n", Rem1, Now)
'set the reminder time


.DueDate = DateAdd("n", Due1, Now)
'set the due time

.ReminderPlaySound = True


.ReminderSoundFile = "C:\Windows\Media\Ding.WAV"
'Add the path to a .wav file on your computer.

.Save
End With
Set taskOutLook = Nothing

Set appOutLook = Nothing
End Sub

Private Sub CommandButton2_Click()
End
End Sub


Private Sub UserForm_Initialize()
UserForm1.TextBox1.SelStart = 0
UserForm1.TextBox1.SelLength = _
Len(UserForm1.TextBox1.Text)
End Sub 

If you would like a copy of this module, just click here. Enjoy.......