erro -gt; CreateOleObject(´Outlook.Application´);
...
uses ComObj,Olectrls;
...
procedure TForm1.Button1Click(Sender: TObject);
var
OutlookObj, ObjSpace, ObjFolder: Variant;
i: Integer;
Str: string;
begin
OutlookObj:=CreateOleObject(´Outlook.Application´);
ObjSpace:=OutlookObj.GetNameSpace(´MAPI´);
ObjFolder:=ObjSpace.GetDefaultFolder(10);
for i:=1 to ObjFolder.Items.Count do
begin
Str:=´´;
Str:=ObjFolder.Items[i].CompanyAndFullName+´ - ´+
ObjFolder.Items[i].Email1Address;
Memo1.Lines.Add(Str);
end;
OutlookObj.Quit;
end;
Esta dando erro na linha, OutlookObj:=CreateOleObject(´Outlook.Application´);
Mensagem de Erro: ´Sequência de Classe Inválida´
Estou no windows 2000, SP4.
Ajuda ai!
:?:
uses ComObj,Olectrls;
...
procedure TForm1.Button1Click(Sender: TObject);
var
OutlookObj, ObjSpace, ObjFolder: Variant;
i: Integer;
Str: string;
begin
OutlookObj:=CreateOleObject(´Outlook.Application´);
ObjSpace:=OutlookObj.GetNameSpace(´MAPI´);
ObjFolder:=ObjSpace.GetDefaultFolder(10);
for i:=1 to ObjFolder.Items.Count do
begin
Str:=´´;
Str:=ObjFolder.Items[i].CompanyAndFullName+´ - ´+
ObjFolder.Items[i].Email1Address;
Memo1.Lines.Add(Str);
end;
OutlookObj.Quit;
end;
Esta dando erro na linha, OutlookObj:=CreateOleObject(´Outlook.Application´);
Mensagem de Erro: ´Sequência de Classe Inválida´
Estou no windows 2000, SP4.
Ajuda ai!
:?:
Chaplinux
Curtidas 0
Respostas
Willian
29/05/2005
Acredito que vc esteja tentando enviar um e-mail pelo Outlook. Eu pensei em fazer algo desse tipo mas fiquei pensando: e se o cara não tiver o Outlook, ele tiver, por exemplo, o Eudora? Aí sujou.
Pois bem, eu baixei [b:4fd2bcae5c]um componente FREE, com código fonte inclusive[/b:4fd2bcae5c], do endereço [url]http://www.scalabium.com/mapimail.htm[/url]. Ele não envia o e-mail: ele abre o programa de e-mail com [b:4fd2bcae5c]todos [/b:4fd2bcae5c]campos preenchidos, inclusive com o arquivo anexado.
Baixa ele e usa. É bem simples e a página dá um exemplo. Qualquer coisa, me manda um e-mail: profwillian@ig.com.br
Espero ter ajudado!
[]s
Willian
Pois bem, eu baixei [b:4fd2bcae5c]um componente FREE, com código fonte inclusive[/b:4fd2bcae5c], do endereço [url]http://www.scalabium.com/mapimail.htm[/url]. Ele não envia o e-mail: ele abre o programa de e-mail com [b:4fd2bcae5c]todos [/b:4fd2bcae5c]campos preenchidos, inclusive com o arquivo anexado.
Baixa ele e usa. É bem simples e a página dá um exemplo. Qualquer coisa, me manda um e-mail: profwillian@ig.com.br
Espero ter ajudado!
[]s
Willian
GOSTEI 0
Chaplinux
29/05/2005
Cara, eu so queria sabe resolver esse erro.
OutlookObj:=CreateOleObject(´Outlook.Application´);
que dá Mensagem de Erro: ´Sequência de Classe Inválida´
só.
naum quero enviar e-mail e sim pegar a lista de contatos, eh do Outlook mesmo.
OutlookObj:=CreateOleObject(´Outlook.Application´);
que dá Mensagem de Erro: ´Sequência de Classe Inválida´
só.
naum quero enviar e-mail e sim pegar a lista de contatos, eh do Outlook mesmo.
GOSTEI 0
Massuda
29/05/2005
A mensagem de erro indica que você não tem o Outlook instalado na máquina. Não confunda o Outlook Express (que vem com o Internet Explorer) com o Outlook (que vem com o MS Office).
O código que você postou deveria funcionar com o Outlook do Office.
No caso do Outlook Express, ele não suporta automação via OLE e utiliza um formato proprietário não documentado para armazenar a lista de contatos.
O código que você postou deveria funcionar com o Outlook do Office.
No caso do Outlook Express, ele não suporta automação via OLE e utiliza um formato proprietário não documentado para armazenar a lista de contatos.
GOSTEI 0
Chaplinux
29/05/2005
um outro caminho, então?
GOSTEI 0