Alguem conhece estes componentes?  estou com uma duvida no MAPIMessages.send

 

tenho uma aplicação que deve enviar uma mensagem ao usuario que não cumpriu sua tarefa em tempo hábil, porem esta tarefa deve ser enviada automaticamente pelo vb.

eu tentei este cod. porem ele não faz o envio automatico, então estou tentando usar a ocx MAPI, mas tb não tive sucesso...

Eu uso o outlook 2000 que esta em rede,talvez isto esta travando tb.

 

'chamada a  API para enviar mensagem do outlook
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long

private sub Command1_Click()
 Dim confere  As Variant
 Dim dataSist As Variant
   
            dataSist = CDate(Format(Now))
            confere = CDate(atualizacao.Text)
            If Check1.Value = 0 Then
                If (dataSist > confere) Then
                    Call SendMail(Mid((cboMatricula.Text), 1, 7), "Sua Tarefa não foi Concluída no Prazo", "Faça sua Tarefa e não se esqueça de ativar o campo concluida", "C056468", "C051564")
                End If
            Else
                MsgBox "Esta tarefa já foi concluída", vbInformation, "Atenção"
            End If

end sub

 

este comando abre o outlook cria a mensagem com os destinarios e os textos necessarios porem tenho que clicar no comando enviar, como fazer para não ter que clicar. para que a mensagem seja enviada automaticamente??????????????/

 

ou como fazer isto com a ocx MAPI ????????????????/