Visual Basic para Aplicaciones - VB + Mail

Life is soft - evento anual de software empresarial
 
Vista:

VB + Mail

Publicado por TOPO (1 intervención) el 02/08/2005 23:02:48
Hola,
estoy buscando un comando, para colocar en una MAcro para Excel, de tal manera que me permita abrir el Outlook Express y enviar un archivo (no el que esta en uso) a una direcciòn de mail determinada.

Un abrazo.

topo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:VB + Mail

Publicado por Pedro (5 intervenciones) el 07/09/2005 17:10:11
No se si te valdrá. Yo en la hoja excel, puse las direcciones que me interesaba y seleccionaba esa celda, entonces se abre OutLook y se coloca la dirección en cuestión.

Si alguien te dice como adjuntar un fichero o texto. Si te parece oportuno, me lo remites con el fin de poder utilizarlo, ya que yo tambien estaba interesado en el tema.

Gracias y espero que te sirva de algo mi apaño.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VB + Mail

Publicado por Ivan (1 intervención) el 28/12/2005 07:52:59
Esta es una interrogante que estaba buscando solucionar, espero les sirva el siguiente código, realmente solo se necesitan cargar dos objetos (mailsession y mailmessages)

Sub enviar_mail()
MAPISession1.UserName = "d_ivan7@yahoo.com"
MAPISession1.NewSession = True
MAPISession1.DownLoadMail = False ' o false si no deseas recibir
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.MsgIndex = -1 ' nuevo mensaje
MAPIMessages1.RecipDisplayName = "d_ivan7@yahoo.com"

MAPIMessages1.ResolveName ' esto comprueba que el destinatario exista en las direcciones
MAPIMessages1.MsgSubject = "texto del asunto"
MAPIMessages1.MsgNoteText = "texto del mensaje"

' si deseas anexar algun archivo al mail:
MAPIMessages1.AttachmentIndex = 0 ' numero del anexo, 0,1,2,3....
MAPIMessages1.AttachmentName = "muc.zip"
MAPIMessages1.AttachmentPathName = "c:\ale\muc.zip"
MAPIMessages1.AttachmentPosition = 1 ' numero del anexo, 0,1,2,3...
MAPIMessages1.AttachmentType = 0 ' archivo de datos
' (puedes anexar varios archivos, incrementando el numero 0,1,2,3....)
' Y por fin, enviarlo:
MAPIMessages1.Send

' Cuando ya no tengas que enviar ningun mail más:
MAPISession1.SignOff
end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VB + Mail

Publicado por Pletor Coe (1 intervención) el 02/10/2006 17:22:01
Y como creas en VBA los objetos MAPIMessage y MAPISession????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar