Fórum Enviar e-mail formatado (HTML) no Outlook 2003 sem uso de Indy #411334

Consegui resolver assim:

procedure Tfrm_Envia_Email.EnviarViaOLE(const pTo, pCC, pCCo, pAssunto,
pTexto, pArquivo: string; pMostra, pHTML: boolean);
const
olMailItem = 0;
olByValue = 1;
var
ii: integer;
MyOutlookApp, MyMailItem, MyAttachments: OLEVariant;
begin
{ Ativando OLE }
try
MyOutlookApp := GetActiveOleObject(Outlook.Application);
except
MyOutlookApp := CreateOleObject(Outlook.Application);
end;

try
{ Criando item de E-mail }
MyMailItem := MyOutlookApp.CreateItem(olMailItem);

{ Adicionando Destinatários }
if pTo <> then
begin
MyMailItem.Recipients.Add(pTo);
end;

{ Adicionando com Cópia para }
if pCC <> then
begin
MyMailItem.CC := pCC;
end;

{ Adionando Cópia Oculta para }
if pCCo <> then
begin
MyMailItem.BCC := pCCo;
end;

{ Adicionando Assunto }
if pAssunto <> then
begin
MyMailItem.Subject := pAssunto;
end;

{ Corpo do E-mail }
if pTexto <> then
begin
if pHTML then
MyMailItem.HTMLBody := pTexto
else
begin
MyMailItem.Body := pTexto;
end;
end;

{ Adicionando arquivo Anexo }
if pArquivo <> then
begin
MyAttachments := MyMailItem.Attachments;
MyAttachments.Add(pArquivo, olByValue, 1, Nome do Arquivo Anexo);
end;

{ Edita email antes de enviar, ou envia diretamente }
if pMostra then
MyMailItem.Display
else
MyMailItem.Send;

finally
{ Elimina variáveis }
MyAttachments := Unassigned;
MyOutlookApp := UnAssigned;
end;
end;

Mas agora não consigo impedir a exibição da mensagem Um programa esta tentando acessar emails armazenados no Outlook. Deseja permitir isso?; se alguém souber como impedir a exibição dessa mensagem por favor poste aqui.

Resolvida

Pessoal, encontrei um problema, o e-mail não esta sendo enviado com a Assinatura padrão do Outlook, se alguém souber como resolver por favor poste aqui.
Obrigado.

Bom dia..
Tambem estou tendo problema quanto ao envio do e-mail com a assinatura...
Nao consegui que ele colocasse a assinatura do proprio outlook...

Eu ate consigo colocar uma imagem ao final do texto...Entao essa imagem passa a ser a assinatura.

Contudo esta imagem que coloco (assinatura) so vai com o e-mail se eu der o comando Display, se eu der
SEND a imagem da assinatura nao vai.

Por acaso ja conseguiu enviar o e-mail com a assinatura???

Sem mais
Abraços