Re: Envio de Correos con Adjuntos

este es otro ejemplo,  aqui atacho un archivo zip, la matriz ls_correos contiene la lista de correos a las que quiero enviar el mail.

funcionan con outlook, outlok express, y otros clientes, tengo otro pequeño programita en el q no necesitas cliente de correo

 

 

mailSession mSes, m
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mAttach

// Create a mail session
//m.mailHandle()
mSes = create mailSession

// Log on to the session
mRet = mSes.mailLogon()
if mRet <> mailReturnSuccess! then
 MessageBox("Mail", "Logon failed, 1.")
 //RETURN
end if

if cbx_unico.checked then
 LONG i
 for i=1 to nestacion
  mMsg.Recipient[i].name =ls_correos[i]
 next
ELSE
 mMsg.Recipient[1].name =email  // ls_e_mail 
END IF

mMsg.Subject =  tab_1.tabpage_2.sle_subject.text  //"envio data headoffice"
mMsg.NoteText = tab_1.tabpage_2.sle_text.text //"actualización de informacion" //mle_1.text //""

//Archivo a enviar
mAttach.FileType = mailAttach!
mAttach.PathName = archivo
mAttach.FileName =  right(archivo,23)  //"data central.zip"
mAttach.Position = len(mMsg.NoteText) -1
mMsg.AttachmentFile[1] = mAttach

//mAttach.PathName = archivo
//mAttach.FileName =  right(archivo,23)  //"data central.zip"
//mAttach.Position = len(mMsg.NoteText) -1
//mMsg.AttachmentFile[2] = mAttach

// Send the mail
mRet = mSes.mailSend(mMsg)

if mRet <> mailReturnSuccess! then
MessageBox("Mail", 'Error Sending mail failed, 3.')
//RETURN
end if

mSes.mailLogoff()
destroy mSes

 

El 11 de enero de 2012 18:25, <jemorad@incusan.com.co> escribió:

Excelente dato

  Javier Enrique Mora Diaz
Dpto de Sistemas
INCUBADORA SANTANDER S.A.
Cra 29 # 53-58.  Bucaramanga
Santander - Colombia
e-mail: javier.mora@incusan.com.co
Tel. 57 7 6430036 - Ext. 1230. Fax: 57 7 6479402






De:        Rafael Consuegra García <rafael.consuegra@gmail.com>
Para:        techeraz9@googlegroups.com
Fecha:        30/12/2011 12:17 p.m.
Asunto:        Re: Envio de Correos con Adjuntos
Enviado por:        techeraz9@googlegroups.com

---

En este link encontras posiblemente lo que necesitas
 
http://www.mtbase.com/foros/respuestas.jsp?t_id=5005114&t_prd=3&foro=PowerBuilder
 
De todas maneras busca un NVO que se llama n_smtp, este te brinda la funcionalidad necesaria ....
El 30 de diciembre de 2011 11:26, Miguel Mestanza <m_mestanza@hotmail.com> escribió:
Buenos dias,
 
Por favor si alguien de ustedes tiene algun ejemplo de como enviar email con un adjunto (imagen) en PB, tengo la versión 10 gracias.

Saludos
 
Miguel Mestanza
 
 

 

---

 



--
Ing. Rafael Consuegra García
Especialista en Gerencia Financiera (FUAC)
Colombia

POSTDATA: Favor Confirmar el Recibo de este email