Enviar e-maillllll Hola: quisiera saber como puedo mandar un e-mail (con MAPI u otra cosa) luego de apretar un botón pero que al apretarlo , me envie el e-mail sin que se abra ninguna ventana de que se está mandando o para poner el nombre de usuario ocontraseña, como por ej: cuando lo hago con MAPI al apretar el botón Outloock me abre una ventana para que ponga el nombre y la contraseña y luego otra que me indica que se está enviando y el tiempo que falta.
Aca les paso el código del los ej que tengo con MAPI (los saqué de este foro):
1)
'control del mapisession
With MAPIS1
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
MAPIM1.SessionID = .SessionID
End With
'control del mapimessage
With MAPIM1
.Compose
.RecipAddress = "el correo del destinatario"
.AddressResolveUI = True
.ResolveName
.MsgSubject = "Asunto del email"
.MsgNoteText = "texto del mensaje"
.Send False
End With
MAPIS1.SignOff
----*********------*******-----*********
2)
With MAPISession1
.UserName = "Insomnia17"
.NewSession = True
.DownLoadMail = False
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.Show
.MsgSubject = "Infor Excel"
.MsgNoteText = TextBox1.Text & vbCr & TextBox4.Text & vbCr & TextBox3.Text
.Send
End With
MAPISession1.SignOff
MsgBox ("El mensaje se envio correctamente")
Muchas gracias
Salu2,3,4....
__________________
skate_mlk
*Skateboarding es vida.*
|