Enviar email usando OUTLOOK 2003

[itsi]

Tocomi.
Estoy utilizando el OUTLOOK 2003 y no encuentro esa opcion. En Outlook Express se donde esta..

D&W.
Estoy utilizando el AFQuickMail, pero imaginate que quiero enviar 100 e-mails de golpe. No puedo estar confirmando 100 veces y luego que me salaga el mensajito de Outlook 2003 y encima el Otulook 2003 no me envia los ficheros adjuntos(solo los reciben los que tiene Outlook 2000, 2002, 2003, etc)

[[Chris]]

Tengo Outlook 2007, encontre la opción que mencionaba tocomi en Herramientas -> Centro de Confianza -> Acceso mediante programación. Talvez por ahí es donde puesdes buscar en Outlook 2003.

Con lo que respecta a los adjuntos, ví una opción "Agregar propiedades a datos adjuntos..." en Herramientas -> Centro de Confianza -> Tratamiento de Datos adjuntos, por defecto está deshabilitada, talvez el problema en Outlook 2003 sea esta opción que puede ser prederminada en versiones anteriores.
Saludos.

[itsi]

He instalado en Outlook 2007. He desactivado las opciones y sigue sin funcionar... (En el Outlook 2003, no veo donde estan las opciones), inclusive con el .EXE que viene de ejemplo funciona. Me esta tocando las ......... (con perdon).

Alguna Sugerencia. No se me ocurren mas.......

[[Chris]]

En Outlook 2003 puedes buscar en la ayuda donde se encuentra esa opción. Prové en Outlook 2007 y a pesar de cambiar la opción que te habia mencionado, sigue apareciendo el mensaje inclusive con el exe de ejemplo. Seguramente debe ser un bug de outlook, Busca las últimas actualizaciones e intentalo de nuevo.

[[Chris]]

Si ya no le hayas como hacer, puedes utilizar COM, utilize esté código y me ha funcionado.

Código Delphi [-]
procedure EnviarCorre_xCOM;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('[email protected]');
  vMailItem.Subject := 'Correo de prueba';
  vMailItem.Body := 'Este es un mensaje enviado como prueba';

// Si quieres HTML en el texto
  vMailItem.HTMLBody := 'Este es un mensaje enviado como prueba';
  vMailItem.Attachments.Add('C:\temp\sample.txt'); // Puedes adjuntar archivos
  vMailItem.Send;

  VarClear(Outlook);
end;

Despues solo tienes que hace run Send & receive.

[itsi]

Hola D&W.
He probado tu codigo y funciona, peroooooooooo me sale las ventanas de

Un programa esta intentando obtener acceso a direcciones de correo electronico almacenadas en Outlook. ¿Desea permitirlo?

y el de

Un programa esta intentando enviar correo electronico automaticamente en su nombre. ¿Desa permitirlo?


La primera ventana la he conseguido quitar con el siguiente codigo.

procedure TInformeNominas.EnviarCorre_xCOM(const Subject, Body, FileName, SenderName,
SenderEMail, RecepientName, RecepientEMail: String);
var
Outlook: _Application;
AFolder : MAPIFolder;
ANameSpace : _NameSpace;
AMailItem : _MailItem;
AAttachments : Attachments;
AppWasRunning: boolean; { has Outlook finished }
lcid: integer; { User ID }
Unknown: IUnknown;
Result: HResult;
begin
lcid := LOCALE_USER_DEFAULT;
//----{~~}
Result := GetActiveObject(CLASS_OutlookApplication, nil, Unknown);
if (Result = MK_E_UNAVAILABLE) or (AppWasRunning) then
Outlook := CoOutlookApplication.Create

else begin
OleCheck(Result); { Make sure the object has been linked }
OleCheck(Unknown.QueryInterface(_Application, Outlook));
AppWasRunning := True; { States that excel is now running }
end;

//Get the namespace
ANameSpace := Outlook.Get_Session;
//Get the Inbox folder
AFolder := ANameSpace.GetDefaultFolder(olFolderInbox);

//Show the Inbox folder on screen
//AFolder.Display;

//Create a new email message
AMailItem := (Outlook.CreateItem(olMailItem) as MailItem);
AMailItem.To_ := RecepientEMail;
AMailItem.Subject := Subject;
AMailItem.Body := Body;
AAttachments := AMailItem.Get_Attachments;

//If the user has entered a file name then attach it
if (Length(FileName) > 0) then
begin
AAttachments.Add(FileName,$00000001 ,
Length(Body)+1,'Test');
end;

AMailItem.Save;
AMailItem.Send;
MessageDlg('The mail has been sent!',mtinformation,[mbok],0);
Outlook.Quit;

end;

En la USE Outlook2000, ActiveX

Pero la ultima pantallita de :
Un programa esta intentando enviar correo electronico automaticamente en su nombre. ¿Desa permitirlo?



No consiguo quitalar..... Sugerencias...

Gracias


P.D.: Con este codigo puedo enviar ficheros adjuntos a todos(express, 2000,2002,2003,2007, vista, etc, lo cual antes no podia)

[[Chris]]

El probado el código que has posteado, pero no me aparece el menaje de que "Un programa está...", lo único que me sale es "Hay mensaje si enviar, desear enviarlos antes de salir" esto es normal ya que en tu código mandas a cerrar outlook (¿Tienes algún propósito con ello?).

Por otro lado, creo que más bien tu problema radica en otro lugar, recuerdas la opción que te había mencionado de outlook 2007 que se encuentra en el menú:
Herramientas -> Centro de Confianza -> Acceso mediante programación

Resulta que la opción por defecto dice: "Avisarme sobre activa sospechosa cuando mi programa antivirus esté inactivo o no esté actualizado." La opción por si sola se explica, revisa que Windows esté detectando correctamente el antivirus y que este esté actualizado. (Vista talvez de problemas, no estoy seguro)

Seguramente, en versiones anteriores a la del 2007, no existe esta opción ya que requiere el SP2 de XP, por lo tanto, en estas versiones lo único que puedes hacer es deshabilitar la opción de seguridad de <u>Acceso mediando Programación</u>.

Saludos.