Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Na Rotina


dhyeggo

Pergunta

alguém poderia me ajudar com essa rotina, eu estou criando um sistema para envio de e-mail pelo delphi, uma mala direta, que através dos dados preenchidos na form e clicado em enviar vão para o microsoft outlook, estou com problemas no momento de anexar alguém poderia me ajudar, codigo ai problemas nas linhas de vermelho

unit OutLookMail;

interface

USES

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Outlook8, OleServer, COMobj, ActiveX;

type

  TMailRecord= record

    Para        : String;

    Cc          : String;

    BCC          : String;

    Anexar      : String;

    Assunto      : String;

    Body        : String;

  end;

procedure OutLookMailProc(MailDetail:TMailRecord);

implementation

procedure OutLookMailProc(MailDetail:TMailRecord);

VAR

  objOutlook      : OutlookApplication;

  CurrentInterface : IUnknown;

  ActiveApplication : HResult;

  CurrentMailItem  : MailItem;

  MailInspector    : Inspector;

begin

  ActiveApplication:=GetActiveObject(CLASS_OutlookApplication, nil, CurrentInterface);

  if ActiveApplication = MK_E_UNAVAILABLE then

    objOutlook := CoOutlookApplication.Create

  else

  begin

    OleCheck(ActiveApplication);

    OleCheck(CurrentInterface.QueryInterface(OutlookApplication, objOutlook));

  end;

  CurrentMailItem:= objOutlook.CreateItem(0) as MailItem;

  CurrentMailItem.To_ :=MailDetail.para;

if MailDetail.anexar<>'' then

CurrentMailItem.Attachments.Add(MailDetail.Anexar,EmptyParam);

  CurrentMailItem.Cc:=MailDetail.Cc;

  CurrentMailItem.BCC:=MailDetail.BCC;

  CurrentMailItem.Subject := MailDetail.assunto;

  CurrentMailItem.Body := MailDetail.Body;

  MailInspector := CurrentMailItem.GetInspector;

  MailInspector.Display(False);

  Showmessage('Click OK quando Terminar');

  objOutlook.Quit;

  objOutlook := nil;

end;

end.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...