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
