Envío de Emails desde Visual FoxPro
Estimados :
Acabo de bajar los componentes Activex de Fastnet, anteriormente Microsoft Internet Control Pack, y al tratar de agregar los Headers para enviar el Mail me dice que no existe el objeto docinput. Y he tratado de pasarle los headers al método sendDoc, pero no se como pasarlos, ya que de menos deben ser 2.
Ojala puedan responderme pronto, ya que me urge terminar esta aplicación.
O en su defecto ayúdenme con otra API de windows para mandar Mails por SMTP
Acabo de bajar los componentes Activex de Fastnet, anteriormente Microsoft Internet Control Pack, y al tratar de agregar los Headers para enviar el Mail me dice que no existe el objeto docinput. Y he tratado de pasarle los headers al método sendDoc, pero no se como pasarlos, ya que de menos deben ser 2.
Ojala puedan responderme pronto, ya que me urge terminar esta aplicación.
O en su defecto ayúdenme con otra API de windows para mandar Mails por SMTP
1 Respuesta
Respuesta de netbuzos
1
Espero que te sirva esto envía e-mail
theApp = CREATEOBJECT("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon()
theMailItem = theApp.CreateItem(0)
If TYPE('theMailItem')=='O'
theMailItem.Recipients.ADD( MEMAIL )
theMailItem.Subject = 'E-Mail '
theMailItem.Attachments.ADD('&LARCHIVO') && si quieres enviar archivo adjunto
theMailItem.SEND
Endif
theApp = CREATEOBJECT("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon()
theMailItem = theApp.CreateItem(0)
If TYPE('theMailItem')=='O'
theMailItem.Recipients.ADD( MEMAIL )
theMailItem.Subject = 'E-Mail '
theMailItem.Attachments.ADD('&LARCHIVO') && si quieres enviar archivo adjunto
theMailItem.SEND
Endif
Eso me sirvió, ¿pero hay alguna forma de enviar esos mails por una cuenta en especifico?
Ya que yo hosteo a varios clientes, y necesito que el Sender sea diferente por cada cliente.
Gracias de Antemano
Ya que yo hosteo a varios clientes, y necesito que el Sender sea diferente por cada cliente.
Gracias de Antemano
strProfile = "nombredeusuarioperfil"
strPassword = "passwordperfil"
strRecipient = "[email protected]"
strSubject = "Asunto"
strBody = "Este es el mensaje..."
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
TheMailItem. Send
TheNameSpace. Logoff
strPassword = "passwordperfil"
strRecipient = "[email protected]"
strSubject = "Asunto"
strBody = "Este es el mensaje..."
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
TheMailItem. Send
TheNameSpace. Logoff
Eso lo intente, pero cuando manda el Outlook lo hace por la cuenta predeterminada, y no me cambia el Sender...
¿Sabes si hay algo más que hacer?
Saludos
¿Sabes si hay algo más que hacer?
Saludos
Esto esta probado con W2000 y Outlook ...
*/ Crear una instacia de OutLook
oMSG = createobject("CDO.Message")
*/ Datos principales de envío
oMSG.From = "[email protected]"
oMSG.Subject = "Asunto"
oMSG.To = "[email protected]"
*/ Codificación MIME del HTML
oMSG.CreateMHTMLBody("file://c:mihtml.html")
OMSG. Send()
Con esta función no he podido enviar un body que no sea html, voay a averiguar como te mejoro esta función espero que te sirva
*/ Crear una instacia de OutLook
oMSG = createobject("CDO.Message")
*/ Datos principales de envío
oMSG.From = "[email protected]"
oMSG.Subject = "Asunto"
oMSG.To = "[email protected]"
*/ Codificación MIME del HTML
oMSG.CreateMHTMLBody("file://c:mihtml.html")
OMSG. Send()
Con esta función no he podido enviar un body que no sea html, voay a averiguar como te mejoro esta función espero que te sirva
