Used these before, but can't test now because something in my Outlooks seems
to be corrupt. Try all three; I believe at least one will work for you:
Sub CreateTask()
Dim objApp As Outlook.Application
Dim objTask As Outlook.TaskItem
Set objApp = CreateObject("Outlook.Application")
Set objTask = objApp.CreateItem(olTaskItem)
With objTask
.Subject = "Subject"
.StartDate = CDate(ProximaFechaAcumulada) - CDate(15)
.DueDate = CDate(ProximaFechaAcumulada)
.Importance = olImportanceHigh
.Body = "Body" 'Here I need Right to Left
.Save
.ReminderSet = True
End With
End Sub
Sub AddTaskToOutlook()
Dim objOutlook As Object
Dim objTask As Object
Dim NextStep As String
Dim ProjName As String
Dim cell As Range
Const olTaskItem = 3
'Get the data
NextStep = Range("C1")
ProjName = Range("C2")
' Set objOLapp = CreateObject("Outlook.Application", "localhost")
Set objOutlook = CreateObject("Outlook.Application")
Set objTask = objOutlook.CreateItem(olTaskItem)
objTask.Subject = NextStep
objTask.Save
Set objOutlook = Nothing
Set objTask = Nothing
End Sub
Sub GeneratingTaskInOutlook()
Dim objApp As Object
Dim OutTask As Object
Set objApp = CreateObject("Outlook.Application")
Set OutTask = objApp.CreateItem(olTaskItem)
With OutTask
.StartDate = Date
.DueDate = GetNextDay(Date, 1)
.Importance = olImportanceHigh
.Display
.ReminderSet = True
End With
End Sub
Regards,
Ryan---
