FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Enviar email usando OUTLOOK 2003
Hola, en una aplicación hecha con DELPHI 6 tengo un problema para enviar correos electrónicos usando outlook 2003, hasta la fecha todos los clientes tenian la misma versión y los enviaba sin problemas, pero ahora algunos han cambiado a OutLook 2003 y no les funciona.
Alguien puede decirme como enviar mesajes con OUTLOOK 2003 y como se puede discriminar si el usuario esta trabajando con OUTLOOK 2002 o 2003, para utilizar uno u otro procedimiento. Adjunto un ejemplo del procedimiento utilizado hasta la fecha para enviar mensajes con anexos usando OUTLOOK 2002. Muchas gracias, y un saludo a todos Jose Manuel. Código:
procedure TForm1.Button16Click(Sender: TObject); const olMailItem = 0; olByValue = 1; var OutlookApp, MailItem, MyAttachments: OLEVariant; begin try OutlookApp := GetActiveOleObject('Outlook.Application'); except OutlookApp := CreateOleObject('Outlook.Application'); end; try MailItem := OutlookApp.CreateItem(olMailItem); MailItem.Recipients.Add('YourMailAddress@something.com'); MailItem.Subject := 'Your Subject'; MailItem.Body := 'Your Message'; myAttachments := MailItem.Attachments; myAttachments.Add('C:\SomeFile.txt', olByValue, 1, 'Name of Attachment'); MailItem.Send; finally myAttachments := VarNull; OutlookApp := VarNull; end; end; |
#2
|
||||
|
||||
¿y si utilizas el shellExec con un comando mailto ?
__________________
|
#3
|
|||
|
|||
Utilizando el comando MAILTO, no se podría adjuntar anexos y en este caso es muy importante que en cada correo se adjunte un fichero anexo.
Código:
procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Self.Handle, nil, 'mailto:eds2004 @ latiumsoftware.com' + '?Subject=Test&Body=Just testing the example', nil, nil, SW_NORMAL); end; |
#4
|
||||
|
||||
¿quién dice que no se pueden adjuntar archivos?
__________________
|
#5
|
|||
|
|||
Creo que sería más práctico, que si sabes la respuesta la pongas en el foro.
La pregunta no era si MAILTO podía enviar anexos (Hay respuesta para esto en varios foros que dicen que no es posible), sino que utilizando el código del ejemplo que ajunte en el primer mensaje, funciona perfectamente para enviar correos electrónicos con anexos en OUTLOOK 2002, pero da error en usuarios con OUTLOOK 2003. Muchas gracias por tu interes. Jose Manuel. |
#6
|
||||
|
||||
Hombre, no te lo tomes a mal
Según aquí, dicen que si se puede. Mi recomendación de usar el shellexecute es porque de esta forma no tienes que preocuparte por si tiene outlook exprees, 2000, 2003, edora, o lo que sea, con shellexecute se abrirá el correo predeterminado. Por eso creo que la solución a tu problema sería utilizar el shellexecute. Cita:
Puntos clave (1) El adjunto (&Attach) debe estar al final (2) la ruta y el nombre del archivo se definen por separado por comillas (3) No todos aceptan archivos adjuntos, pero esto funciona con Outlook 97 & 2000. Podrías probarlo con el 2003 Fuente: steve dabrosca
__________________
Última edición por ContraVeneno fecha: 19-07-2006 a las 22:18:25. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Pasar citas a Outlook 2003 | aircraft | API de Windows | 0 | 03-07-2006 13:51:26 |
Enviar mail usando SMTP pero no OUTLOOK | brandolin | Internet | 2 | 31-01-2006 03:32:30 |
Problema al enviar Email con adjuntos usando el componente Idsmtp de las indy | Nbull | Internet | 2 | 22-11-2004 09:23:38 |
Enviar email a través de Outlook Express | kambiz | Internet | 9 | 20-10-2004 22:58:12 |
Adjuntar fichero por E-Mail usando outlook? | burasu | Internet | 0 | 05-08-2004 12:25:16 |
|