mail con outlook application pero no de la cuenta predeterminada

[Roxana]

Hola quisiera enviar mail desde mis sistemas de vfp utilizando outlook.application pero no de la cuenta predeterminada de microsoft outlook, desde la otra cuenta que tengo configurada, pero no lo logro, alguien tiene alguna manera, gracias

[Alex Fernando Reyes Erazo]

Con ese procedimiento puedes enviar correos desde VFP por medio de outlook

Ejemplo:

SendMailOutlook("sam...@mail.com","Factura","Adjunto factura de venta","C:\SGGSYSTEM\REPORTS\PDF_factura.pdf",.F.)

*Procedimiento para enviar correos por outlook

Procedure SendMailOutlook

Lparameters tcDestino, tcAsunto, tcCuerpo, tcArchivo, tlMostrar

*: Variables para la Interfase

Local loOutlook As "Outlook.Application"

Local loNameSpace As Object

Local loMailItem As Object

tcArchivo = Icase(Vartype(tcArchivo) = 'L','',Alltrim(tcArchivo))

*: Creación de objetos Outlook y NameSpace

loOutlook   = Createobject("Outlook.Application")

loNameSpace = loOutlook.GetNameSpace("MAPI")

*: Ejecución de métodos básicos y armada del correo

loNameSpace.Logon('VfpsEnterprise' , 'VfpsEnterprise')

loMailItem = loOutlook.CreateItem(0)

*: Llenado de las direcciones de correos

lnRegs = ALines(laDestinos,Strtran(Alltrim(tcDestino),';',Chr(13)))

For F = 1 To lnRegs

loMailItem.Recipients.Add(Alltrim(laDestinos(F)))

Next

*: Contenido del Correo

loMailItem.Subject    = tcAsunto

loMailItem.BodyFormat = 3

loMailItem.HTMLBody   = tcCuerpo

If !Empty(tcArchivo)

If File(tcArchivo)

loMailItem.Attachments.Add(tcArchivo)

*: Si desea adjuntar muchos archivos, puede pasarlos

*: como se hace con las direcciones de correos y adjuntarlos

*: dentro de un ciclo

Endif

Endif

*: Se muestra la interfase Outlook (Invisible por Default)

If !tlMostrar

loMailItem.Send()

Else

loMailItem.Display

Endif

*: Liberación del objeto

loNameSpace.Logoff

=LiberarVariables('loMailItem,loNameSpace,loOutlook')

EndProc

* Procedimiento para liberar variables

Procedure LiberarVariables

Lparameters tcVariables, tcAccion

If Pcount() = 0

Return

Endif

tcAccion = Icase(Vartype(tcAccion) = 'L','D',tcAccion)

Local lnRegs, F, lcVar

lnRegs = Alines(laVar,Strtran(Alltrim(tcVariables),",",Chr(13)))

For F = 1 To lnRegs

lcVar  = laVar[F]

&lcVar = Null

If tcAccion = 'D'

Release (lcVar)

Endif

Next

EndProc

El jue, 11 de feb. de 2021 a la(s) 16:13, Roxana (roxanas...@gmail.com) escribió:

Hola quisiera enviar mail desde mis sistemas de vfp utilizando outlook.application pero no de la cuenta predeterminada de microsoft outlook, desde la otra cuenta que tengo configurada, pero no lo logro, alguien tiene alguna manera, gracias

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/a256763c-30ca-4877-a6b2-80a42e53e5acn%40googlegroups.com.

[Roxana Specogna]

Muchas gracias por tu ayuda, pero me sigue saliendo de la cuenta predeterminada de outlook, cambie loNameSpace.Logon('VfpsEnterprise' , 'VfpsEnterprise') ahi con los datos de la cuenta de mail que quiero que sea la que envia el mail, pero no paso nada salio igualmente a la predeterminada.

Hay algun otro lugar adonde cambiar para que haga eso? o no es posible cambiar de cuenta?

Desde ya muchas gracias

Libre de virus. www.avast.com

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAPfwTqEcxiwELjD4OZXk3hSoU8Y_epCpUoXVEPMHtaZVJnO-7g%40mail.gmail.com.

Libre de virus. www.avast.com

[Alex Fernando Reyes Erazo]

Lo raro es que la primer vez que la utilices debió pedirte que hicieras el setup de la cuenta que quieres utilizar, creo que Víctor Hugo Espinola tiene una, no estoy seguro 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAPR6npfTm9Wbg3b5LWh-ob3NpEqT1OzWaQeVyQtqBhmNuCWwUA%40mail.gmail.com.

[Luis Maria Guayan]

Debes crear un perfil extra de Outlook para la cuenta que deseas utilizar en cada PC que ejecuta la aplicación.

Luis María Guayán
Tucumán, Argentina
_______________________________

Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com