danielrgoes

1 - O outlook não precisa estar aberto apenas instalado 2 - Use o componente NMHTTP do delphi procedure TFRM_desenho.BitBtn1Click(Sender: TObject); var Outlook: OleVariant; vMailItem: variant; begin if NMHTTP1.FConnected then begin try Outlook := GetActiveOleObject('Outlook.Application'); except Outlook := CreateOleObject('Outlook.Application'); end; vMailItem := Outlook.CreateItem(olMailItem); vMailItem.Recipients.Add('e-imal@jccwww.com.br'); // 1o destinatário vMailItem.Subject := 'teste de email'; // assunto vMailItem.Body := 'Este é um teste'; // Corpo do e-mail vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado vMailItem.Send; VarClear(Outlook); end else MessageDlg('CONEXÃO INTERNET NÃO DISPONÍVEL! ', mtInformation, [mbOK], 0); end; abraço se o outlook não estiver aberto da o seguinte erro: Project projeto.exe raised exception class EOleSysError with message 'Operação não disponivel'. e deixa eu me retratar o meu outlook aki funciona como email interno não existe conexao com a internet com ele e sim um servidor de email aonde no nome de endereço eu passo o login do usuario 1 - O outlook não precisa estar aberto apenas instalado 2 - Use o componente NMHTTP do delphi procedure TFRM_desenho.BitBtn1Click(Sender: TObject); var Outlook: OleVariant; vMailItem: variant; begin if NMHTTP1.FConnected then begin try Outlook := GetActiveOleObject('Outlook.Application'); except Outlook := CreateOleObject('Outlook.Application'); end; vMailItem := Outlook.CreateItem(olMailItem); vMailItem.Recipients.Add('e-imal@jccwww.com.br'); // 1o destinatário vMailItem.Subject := 'teste de email'; // assunto vMailItem.Body := 'Este é um teste'; // Corpo do e-mail vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado vMailItem.Send; VarClear(Outlook); end else MessageDlg('CONEXÃO INTERNET NÃO DISPONÍVEL! ', mtInformation, [mbOK], 0); end; abraço se o outlook não estiver aberto da o seguinte erro: Project projeto.exe raised exception class EOleSysError with message 'Operação não disponivel'. e deixa eu me retratar o meu outlook aki funciona como email interno não existe conexao com a internet com ele e sim um servidor de email aonde no nome de endereço eu passo o login do usuario Com certeza não precisa mesmo estar aberto agora só estou com o problema com a conexao quero eliminar o erro se o servidor não estiver acessivel

Boa Tarde pessoal eu tenho o seguinte codigo para enviar email pelo outlook2000 dica dada pelo jhonas aki mesmo Código: procedure TFRM_desenho.BitBtn1Click(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('e-imal@jccwww.com.br'); // 1o destinatário vMailItem.Subject := 'teste de email'; // assunto vMailItem.Body := 'Este é um teste'; // Corpo do e-mail vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado vMailItem.Send; VarClear(Outlook); end; ele funciona muito bem mais eu gostaria de tratar dois erros um dele seria se o outlook não estiver aberto avisar que não esta e outro se não houver conexao muito obrigado

Muito obrigado ajudou muito simm

boa tarde pessoal eu fiz um sistema e gostaria de implementar uma rotina que enviase um email automatico pelo outlook2000 como faço isso no delphi muito obrigado

danielrgoes, é bem simples:- declare uma variável na sessão Private do form (digamos: ContaLinha :Integer;) - no evento BeforePrint, você inicializa ela com 0 (ContaLinha := 0;) - no evento BeforePrint da banda do tipo rbDetail, você verifica se ela é igual a 3 (if ContaLinha = 3 then) e coloca a fonte em (...Font.Style := [fsBold]; ) - no evento AfterPrint da banda do tipo rbDetail, você incrementa ela (Inc(ContaLinha);) e verifica se ela é diferente de 3 (if ContaLinha = 3 then) e coloca a fonte sem o bold (...Font.Style := []; ) Abraços Muito Obrigado Micheus funcionou perfeitamente e muito Obrigado pela atençao

Boa Tarde pessoal Estou com o seguinte problema eu tenho um relatorio no Quick Report que tem um QrBand como title e um como detail o detail repeti conforme o select entaum ele coloca campo1 outro campo1 campo2 outro campo2 campo3 outro campo3 . . . . . tem 8 colunas mais ele pode variar dependendo da informaçao do banco eu queria deixar apenas a terceira linha em negrito alguém tem alguma ideia de eu saber qual é sempre a terveira linha? muito obrigado

Muito Obrigado Jhonas funciou muito bemmmm

Boa Tarde pessoal Eu tenho um cod assim procedure TFrm_desenhos.DBGrid1DblClick(Sender: TObject); var caminho :string; Pdir :pchar; begin caminho := 'c:\teste\'+ modulo.cds_desenhosCAMINHO.Value+'.pdf'; GetMem(pDir,256); StrPCopy(pDir, caminho); {Aqui você coloca o caminho + o nome do arquivo} ShellExecute(0, nil,caminho, nil, Pdir, SW_NORMAL); FreeMem(pdir,256); end; ele funciona muito bem quando no lugar de caminho eu coloco a string mesmo 'c:\teste\arquivo.pdf' mais quando eu tento colocar uma variavel porque meu caminho vem do banco da incompatibilidade (Str and PAnsiChar) alguém tem alguma soluçao? muito obrigado

Bom dia sera que alguém pode me ajudar eu tenho um sistema com varios DBGrids mais gostaria de colocar contadores nas linhas ou seja na primeira linha colocar numero 1 na segunda numero 2 na terceira numero 3 na quarta numero 4 e assim por diante ai cada vez que eu colocar um select não importa quantas linhas ele selecionar se for 3 ou 10 ele colocar em uma coluna o numero muito obrigado

Boa Tarde estou utilizando o cod para pegar o nome do arquivo if FindFirst('c:\FD\Arquivos\*.*', faAnyFile, searchResult) = 0 then begin repeat modulo.cds_clientes.Append; //ShowMessage('Nome do arquivo = '+searchResult.Name); modulo.CDS_clientesNOME_EMITENTE := searchResult.Name; until FindNext(searchResult) <> 0; FindClose(searchResult); end; end; porem quando é pra exipi em tela ( pater comentada) exibi mais na hora de salva no banco da incompatibilidade de TFileName para String alguém tem alguma soluçao

Gostaria de saber se alguém conhece algum componete pata delphi 2007 que faz gráficos com curzas suaves do tipo splines muito obrigado

Ainda não encontrei o componente que lhe falei, mas tenho algumas sugestões para voce exportar dados da tabela para uma planilha em excell e gerar o grafico no excel http://www.geocities.com/SiliconValley/Bay/1058/TblExcel.zip Usar o CurveExpert 1.3 http://userpages.xfoneusa.net/~dhyams/cftp.htm abraço Muito Obrigado mesmo pela ajuda vou dar uma olhada nos links mais usar o excel fica complicado no meu sistema o tipo do grafico (layout) o execel não faz mais se você achar seria uma mao na roda pra mim abraços

Tente usar o Fast Line ai voce terá a curva quanto ao exemplo, ao invés de usar o Chart use o DBhart com algumas modificações OBS: Me lembro de ter visto na Net um componente gráfico para o delphi que fazia gráfico de curvas, vou procurar e se achar depois informo. abraço é eu to usando um bdchart fastline mais traça retas em vez de curvas quando os dados não estaum na media NOSSA SE você ACHA EU AGRADEÇO MUITO ah eu uso o delphi 2007 abraços

Veja pagina 26 deste manual http://delphi.borlandforum.com/impboard/at...93/TeeChart.pdf Componente que exibe gráficos de funções matemáticas http://geocities.yahoo.com.br/admsqlbr/arq...s/plotchart.zip OBS: Lembre-se que o gráfico de curvas depende da sua equação matemática para obter os pontos do gráfico abraço Bom dia Amigo Eu sei da equaçao porem como é um DBChart os dados já foram calculados e enviados para o banco ai o dbchart busca os dados do banco para traçar o grafico neste exempo que você me mando ele calcula e jga os valores ponto a ponto em um chart abraços

Boa Tarde pessoal estou com um problema fiz um grafico usando o componente dbchart esta funcionando bem mais no meu caso necessito que ele faça curvas ele ate faz mais quando os dados estaum mais ou menos na media se houver uma diferença ele traça por pontos ou sejah não fica totalmente curva o excel tem uma opçao de traçar pela media gostaria de saber se alguém tem alguma soluçao muito obrigado abraços

Bom Bia Pessoal estou com um problema e gostaria de saber se você por favor podem me ajudar estou fazendo um relatorio em QR 2007 que precisa fazer o seguinte um title cm o nome do cliente logo da empresa etc... e um cabelario de uma tabela depois um detail com dados que vem do banco de dados que iram repetir para formar a tabela agora vem o problema preciso fazer outra tabela mais não tem como eu colocar outro band para fazer o cabeçario e depois mais um detail para faze o restante da tabela se alguém cm mais experiencia poder me ajudar se quizer mais explicaçoes o meu email é danielrgoes@gmail.com abraços

Veja neste endereço http://seucolega.wordpress.com/2007/07/21/...-o-delphi-2007/ abraço Eu já havia visto sua dica mais não adiantou o QR 2007 já esta instalado mais não tem o componente de grafico se tiver mas alguma dica eu agradeço abraços

Bom Dia Pessoal esstou com um problema e gostaria de pedir a ajuda de vocês é o seguinte eu fiz um grafico no DBChart agora preciso imprimir ele no QuickReport porque esse grafico vai em um relatorio já li em alguns sites falaram para utilizar o componente QRDBChart mais esse componente não existe no QR para delphi 2007 alguém sabe desse componente para 2007 ou como um imprimir? desde já agradeço abraços

Bom Dia pessoal estou com problemas com o DBChart eu criei um DBChart (tipo:lines) com duas series para que exiba duas linhas variando valores diferentes no eixo Y porem eu gostaria de que quando eu altera-se o maximo valor do eixo Y da series1 ele não mexe-se na series2 ou seja o grafico fica-se proporcional eu tenho esse grafico no excel e o excel deixa eu criar 2 eixos Y e alterar os valores max e min de forma que fiquem diferentes queria saber se tem como fazer isso no delphi Abraços

Boa Noite Pessoal sou novo por aqui gostaria de saber se alguém pode me ajudar estou desenvolvendo um sistema que possue varios TEdit e estou tratanto os eventos deles mais tem um problema existe um Tedit que preenche sozinho com numeros quando eu dou tab de outro edit mais quando ele acessa o Tedit ele seleciona a palavra inteira entaum se o usuario não apertar a tecla pra frente ele vai apagar o que esta escrito para sob escrever eu queria que quando acessase esse Tedit ele já coloca-se o cursor no final da palavra Obrigado