outlook EXPRESS
Publicado por gloria (61 intervenciones) el 21/10/2004 12:22:01
Hola amigos, estoy intentado programar para enviar un correo a traves de la aplicación tal cual lo tengo:
integer li_return
OLEObject ole_outlook,ole_item,ole_attach
ole_outlook = Create OLEOBject
li_return = ole_outlook.ConnectToNewObject("outlook.application")
if li_return <> 0 then
destroy ole_outlook
return
else
messagebox("Correu","Connectat")
end if
ole_item = ole_outlook.createitem(0)
ole_item.subject = "Llegeix el fitxer adjunt"
ole_item.body = "Cos del missatge"
ole_item.to ="[email protected]"
ole_attach = ole_item.attachments
ole_attach.add("C:\yy.txt")
ole_item.send
Me lo envia por Microsoft outlook y yo lo que quiero es mandarlo por outlook express. Mi pregunta és, como lo hago? alguien tiene ejemplo funcional? Alguna ayudilla?
Gracias
integer li_return
OLEObject ole_outlook,ole_item,ole_attach
ole_outlook = Create OLEOBject
li_return = ole_outlook.ConnectToNewObject("outlook.application")
if li_return <> 0 then
destroy ole_outlook
return
else
messagebox("Correu","Connectat")
end if
ole_item = ole_outlook.createitem(0)
ole_item.subject = "Llegeix el fitxer adjunt"
ole_item.body = "Cos del missatge"
ole_item.to ="[email protected]"
ole_attach = ole_item.attachments
ole_attach.add("C:\yy.txt")
ole_item.send
Me lo envia por Microsoft outlook y yo lo que quiero es mandarlo por outlook express. Mi pregunta és, como lo hago? alguien tiene ejemplo funcional? Alguna ayudilla?
Gracias
Valora esta pregunta


0