Macro para generar una tarea en outlook desde excel
Para todos. Tengo una pequeña pregunta. Tengo la siguiente macro para generar tareas en outlook desde excel:
Sub CreateAppointmentsModificada()
Dim oApp As Outlook.Application
Dim tsk As Outlook.TaskItem
Dim strTitulo As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim FechaHora
On Error GoTo ErrorHandler
If UserForm1.txtcomp.Value = "" Then
MsgBox "Debes ingresar un compromiso.", vbExclamation, strTitulo
ElsE
If UserForm1.Chkrecordatorio = True Then
Set oApp = GetOutlookApp
If oApp Is Nothing Then
MsgBox "No se puede iniciar Outlook.", vbInformation, strTitulo
Unload UserForm1
Exit Sub
End If
Set tsk = oApp.CreateItem(olTaskItem)
With tsk
FechaHora = CDate(UserForm1.Txtfecha2.Value) & " " & UserForm1.Txthora
.Subject = UserForm1.cmbcliente.Value
.ReminderSet = True
.ReminderTime = FechaHora
.Body = UserForm1.txtcomp.Value
.Save
End With
Else
End If
MsgBox "Compromiso agendado en Outlook.", vbInformation, strTitulo
End If
Exit Sub
ErrorHandler:
MsgBox "Ha ocurrido un error: ", vbExclamation, strTitulo
End Sub
Function GetOutlookApp() As Outlook.Application
On Error Resume Next
Set GetOutlookApp = CreateObject("Outlook.Application")
End Function
La macro funciona muy bien pero cuando genero el recordatorio y voy a verificar las tareas en outlook, al abrir la tarea en donde dice fecha de vencimiento no aparece especificada una fecha. Aparece la fecha en aviso, pero si no aparece en fecha de vencimiento no se enlistan las tareas cronológicamente y pues, esa es la idea.
