Hola, bueno les vengo a pedir ayuda por lo siguiente: estoy elaborando mi proyecto de tesis que se vasa en un control de inventario la cual nesecito que envie nominas a el correo electronico del supervisor del area. un pana me dio un codigo el cual es este:

Private Sub Enviar_Click()
   Dim ret As Boolean
      
    ' Asegurarse de pasar bien los últimos dos parámetros _
     ( Si usa login y si el server usa SSL)
      
    ret = Enviar_Mail_CDO(Txt_Servidor, _
                          Txt_Para, _
                          Txt_De, _
                          Txt_Asunto, _
                          Txt_Mensaje, _
                          Txt_Adjunto, _
                          Txt_Puerto, _
                          Txt_Usuario, _
                          Txt_Password, _
                          True, _
                          True)
      
    ' Si devuelve true es por que no hubo errores en el envio
    If ret Then
        MsgBox " .. Maneje enviado ", vbInformation
    End If
End Sub

Pero no me sirve