por que ocorre este erro no código?

Delphi

19/10/2004

var
Form1: TForm1;
const
olMailItem = 0;

implementation
uses comobj, olectrls;


{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject(´Outlook.Application´);
except
Outlook := CreateOleObject(´Outlook.Application´);
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´duilio.filho@ig.com.br´); // 1o destinatário
vMailItem.Recipients.Add(´duilio_daredevil@yahoo.com´); // 2o destinatário
vMailItem.Subject := ´DIARIO OFICIAL´; // assunto
vMailItem.Body := ´ABRA O ARQUIVO EM ANEXO POR FAVOR!!!´; // Corpo do e-mail

vMailItem.Attachments.Add(´C:\DIARIO\sql-aval.PDF´); // arquivo anexado

vMailItem.Send;

VarClear(Outlook);
end;
end.


Duilinho

Duilinho

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

19/10/2004

Olá

:arrow: Procure colocar um título que dê uma rápida descrição do problema
:arrow: Procure descrever na mensagem o problema que ocorre, em que situações ocorre e outros dados afins, para que possamos ajudá-lo melhor
:arrow: Procure postar o trecho de código com problema, ao invés da Unit inteira: isso facilita a visualização

:idea: A utilização de BBCode (botão ´Code´ acima da caixa de texto da mensagem) torna o código destacado e claro.

Qual o problema afinal?
Até+


GOSTEI 0
Otto

Otto

19/10/2004

[b:223ebcd9e2]Bloqueado![/b:223ebcd9e2] [img:223ebcd9e2]http://forums.offtopic.com/images/smilies/lockd.gif[/img:223ebcd9e2]

:idea: [color=blue:223ebcd9e2][url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=16976]Saiba como obter resposta rápida..[/url][/color:223ebcd9e2]
:idea: [color=blue:223ebcd9e2]Leia sempre [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta.[/url][/color:223ebcd9e2]
:idea: [color=blue:223ebcd9e2]Use sempre o Link [url=http://delphiforum.icft.com.br/forum/search.php][img:223ebcd9e2]http://delphiforum.icft.com.br/forum/templates/subSilver/images/icon_mini_search.gif[/img:223ebcd9e2] Pesquisar[/url] no topo da Página.[/color:223ebcd9e2]



Erro Onde? Qual Erro, Seja mais claro. :wink:


GOSTEI 0
POSTAR