Fórum erro -gt; CreateOleObject(´Outlook.Application´); #283241
29/05/2005
0
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
Curtir tópico
+ 0Posts
29/05/2005
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
30/05/2005
Chaplinux
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
30/05/2005
Massuda
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
30/05/2005
Chaplinux
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)