Bom Dia Srs. Estou tendo prolemas quando envio E-Mails pelo OutLook. Ao enviar aparece uma de tela de seguranca do outlook pedindo para confirmar o envio! Alguem sabe com evitar esta tela. try OutlookApp := GetActiveOleObject('Outlook.Application'); except OutlookApp := CreateOleObject('Outlook.Application'); end; {} try MailItem := OutlookApp.CreateItem(olMailItem); {} try {} MailItem.Importance := 2; MailItem.Subject := Titulo; MailItem. to := Para; MailItem.Bcc := Copia; {Copia Oculta} {MailItem.CC := Copia;} {} if de <> '' then MailItem.SentOnBehalfOfName := de; {} if bHTML then MailItem.HTMLBody := Descr else MailItem.Body := Descr; {} if FileExists(Arq) then MailItem.Attachments.Add(Arq, olByValue, 1, ExtractFileName(Arq)); if FileExists(JpgLogo) then MailItem.Attachments.Add(JpgLogo, olByValue, 1, ExtractFileName(jpgLogo)); {} MailItem.Save; {Guarda na pasta rascunhos}
Application.ProcessMessages; if bSend then MailItem.Send {Envia}; AQUI ELE GERA A TELA DE SEGURANCA Elcio Domingos Ramos [EMAIL PROTECTED] Deptº Tempos e Metodos. DEMAG Cranes & Components Ltda. Equipamentos de movimentação de carga. Fone: (11) 2145-7823 Fax: (11) 2145-7910 ------------------------------------------------------------- [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html