Visual Basic - VB6 Enviar un mail en nombre de

Hola estoy intentando hacer un programita que envie mail pero me falta definir el campo "De", no quiero que sea el usuario con el que he iniciado la sesion de Windows
Pongo el codigo por si alguien me puede decir como solucionarlo.


Dim posList, Pos1, Pos2, Pos2T, Pos3, Pos4 As Integer
Dim Destinatario, cC As String
Dim j As Integer
Dim messout As Object
Dim mmapiout As Object
Dim mensaje
Set messout = CreateObject("Outlook.Application")
Set mmapiout = messout.getnamespace("MAPI")
mmapiout.logon
Set mensaje = messout.CreateItem(0)

'Aqui gestionamos el archivo destinatarios.ini que contiene los destinatarios

Open App.Path & "Destinatarios.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, strline
If strline Like ("*" & chk6C.Caption & "*") Then
'strline = Trim(strline)
Pos1 = InStr(1, strline, "$")
Pos2 = InStr((Pos1 + 1), strline, "$")
Pos2T = Pos2 - Pos1
Destinatario = Mid(strline, (Pos1 + 1), (Pos2T - 1))
mensaje.To = Destinatario
Pos3 = InStr((Pos2 + 1), strline, "$")
Pos4 = InStr((Pos3 + 1), strline, "$")
Pos4 = Pos4 - Pos3
cC = Mid(strline, (Pos3 + 1), (Pos4 - 1))
mensaje.cC = cC
Exit Do
End If
Loop
Close #1
'--------------------------------------------------

mensaje.Subject = "Asunto del mensaje"
mensaje.body = "Cuerpo del Mensaje"

'Aqui buscamos el archivo a anexar recorriendo el listbox
For posicion = 1 To (List1.ListCount)
posList = posicion - 1
h = List1.List(posicion - 1)
h = UCase(h) 'CONVERTIMOS EL STRING A MAYUSCULAS
If h Like "*Jose*" Then ' COMPARAMOS LOS CARACTERES PARA ENCONTRAR EL ARCHIVO CORRESPONDIENTE
mensaje.Attachments.Add (Path + h)
End If
Next

If selMostrar.Value = True Then
mensaje.Display
Else
mensaje.Send
End If
mmapiout.logoff
Set mmapiout = Nothing
Set messout = Nothing
End If
'***********************************************
'***********************************************


Bueno, pues muchas gracias de antemano y perdonad por el ladrillo.
Ciao.

Manu

adjunto dos cosas que quizas te ayuden

en mi caso yo tenia configurada otra cuenta de Outlook (otro perfil) en mi maquina.

MAPISession1.UserName = "OUTLOOK"
MAPISession1.SignOn

El perfil era OUTLOOK que era una cuenta diferente a la mia.

Quizas con esto te ayude

Me confirmas espero qeu te sirva.

SAludos desde Ecuador
Andres Guerrero