Por favor, alguem poderia me dizer como enviar uma mensagem automaticamente pelo vb6.0??

Estou em ambiente de rede e gostaria que minha aplicação de tarefas enviasse uma mensagem de email para o funcionario que não cumpriu sua tarefa no tempo determinado.

Nas buscas pela net eu consegui montar a mensagem com os dados do aplicativo, porem o envio deve ser feito manualmente, isto eu gostaria de mudar,  quero que o send seja automatico, tem algum codigo que completa isso?? 

 

olha o codigo que estou usando:

'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

 

Public Sub SendMail(Optional Address As String, _
Optional subject As String, Optional body As String, _
Optional CC As String, Optional BCC As String)

    Dim strCommand As String
   
    'constroi a string do email
    If Len(subject) Then strCommand = "&Subject=" & subject
    If Len(body) Then strCommand = strCommand & "&Body=" & body
    If Len(CC) Then strCommand = strCommand & "&CC=" & CC
    If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC
   
    'substitui o primeiro &
    'com interrogacao
    If Len(strCommand) Then
       Mid(strCommand, 1, 1) = "?"
    End If
   
    'Inclui o comando mailto: e o endereço de e-mail
    strCommand = "mailto:" & Address & strCommand
   
    'executa o comando via API
    Call ShellExecute(Me.hwnd, "open", strCommand, vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub

 

provavelmente preciso colocar um ?????.send, porem não consegui achar estes???? ainda,  alguem se habilita, por favor???????

 

obrigada