Jump to content
Fórum Script Brasil

Annelise

Membros
  • Posts

    67
  • Joined

  • Last visited

About Annelise

  • Birthday 06/06/1998

Contatos

  • AIM
    YAKKOO
  • MSN
    YAKKOO
  • Website URL
    http://YAKKOO
  • ICQ
    0
  • Yahoo
    YAKKOO

Perfil

  • Location
    YAKKOO
  • Interests
    YAKKOO

Annelise's Achievements

0

Reputation

  1. galera, to com um pequeno probleminha.... tenho uma tabela onde coloco os dados que têm no maximo 20 caracteres, queria que a minha celula ficasse somente com um tamanho, ou seja, que ela não variasse de tamanho de acordo com o numero de caracteres que contiver o texto... se alguém puder me ajudar... brigadim bjus Ana :0)
  2. Annelise

    Data Do Arquivo

    <!-- INÍCIO - Última Atualização --> <script language="JavaScript"> function last_modified() { var mo = new Array('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julho','Agosto','Setembro','Outubro','Novembro','Dezembro') var d = new Date(document.lastModified) var t = new String(d.getYear()) s="Última: " + d.getDate() + " " + mo[d.getMonth()]+" " if(t.length==2) s+="19" s+=t+". " document.write('<center>' + s + '</center>') } </script> <script language="JavaScript">last_modified()</script> <!-- FIM - Última Atualização --> DESSA FORMA EU TENHO A DATA DA PAGINA HTML....E SE EU QUISER COLOAR A DATA DO ARQUIVO TXT DE ONDE ESTOU BUSCANDO OS DADOS QUE ESTAO SENDO MOSTRADOS NA PAGINA??? POR FAVOR, SE alguém PUDER AJUDAR...GRATA.. BJIM,...ANA
  3. DESCULPE KIKO, não É POR ISSO QUE DISSE QUE O FORUM TA HORROROSO............... são OUTROS MOTIVOS...DEPOIS ENVIO UMA MSG FECHADA A você E TE FALO..... DESCULPE SE ME EXPRESSEI MAU...... VALEU
  4. ESSSE FORUM já FOI MELHOR..................................................................TO HORROROSO ..................
  5. OLA TO USANDO O CODIGO DO LINK DO IMASTERS QUE você ME PASSOU.....MAS TA DANDO O SEGUINTE ERRO: ELE ABRE UMA TELA E PEDE O SEGUINTE: IdStack.pas quando CONCELO OU IGNORO ESSA MSG DA O SEGUINTE ERRO: Socket error #11001 Host not Found O CODIGO E ESSE: unit email; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, Buttons; type TForm1 = class(TForm) IdMessage: TIdMessage; IdSMTP: TIdSMTP; edtPara: TEdit; edtCC: TEdit; edtCCO: TEdit; edtAssunto: TEdit; cbxPrioridade: TComboBox; cbxConfirmaLeitura: TCheckBox; botaoanexar: TBitBtn; mmMensagem: TMemo; BitBtn2: TBitBtn; odanexos: TOpenDialog; ListBox1: TListBox; procedure botaoanexarClick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.botaoanexarClick(Sender: TObject); begin if odAnexos.Execute then ListBox1.Items.Add(odAnexos.FileName); end; procedure TForm1.BitBtn2Click(Sender: TObject); var xAnexo : Integer; begin IdMessage.Recipients.EMailAddresses := edtPara.Text; IdMessage.CCList.EMailAddresses := edtCC.Text; IdMessage.BccList.EMailAddresses := edtCCO.Text; //Trata a Prioridade da mensagem case cbxPrioridade.ItemIndex of 0 : IdMessage.Priority := mpHigh; 1 : IdMessage.Priority := mpNormal; 2 : IdMessage.Priority := mpLow; end; IdMessage.Subject := edtAssunto.Text; IdMessage.Body := mmMensagem.Lines; if cbxConfirmaLeitura.Checked then IdMessage.ReceiptRecipient.Text := IdMessage.From.Text; // Auto Resposta //Tratando os arquivos anexos for xAnexo := 0 to ListBox1.Items.Count-1 do TIdAttachment.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo])); IdSMTP.Connect; try IdSMTP.Send(IdMessage); finally IdSMTP.Disconnect; end; Application.MessageBox('Email enviado com sucesso!', 'Confirmação', MB_ICONINFORMATION + MB_OK); end; end.
  6. Annelise

    Enter

    TODA VEZ QUE EU DER ENTER CRIAR UMA LINHA DA SEGUINTE MANEIRA. NA MINHA TELA TEM UM MEMO ONDE DIGITO OS DADOS POR EX: MEDICAMENTO 1 (AGORA DOU O ENTER) E DEBAIXO DE MEDICAMENTO 1(já NO QUICK REPORT) APARECA UMA LINHA (UM TRACO) E FIQUE DA SEGUINTE MANEIRA: MEDICAMENTO 1 ___________________________________________________________
  7. Annelise

    Enter

    GALERA TO PRECISANDO DO SEGUINTE... TODA VEZ QUE EU DER ENTER, CRIE UMA LINHA EM UM REPORT (FORMULARIO) TEMN COMO? alguém PODE ME AJUDAR? VALEU T+
  8. TENHO TB O SEGUINTE CODIGO: { Seu servidor SMTP } NMSMTP1.Host := 'santacasabh.org.br'; { Porta SMTP, **NÃO MUDE ISTO** } NMSMTP1.Port := 25; { Nome de login do usuário } NMSMTP1.UserID := 'annelise'; { Conecta ao servidor } NMSMTP1.Connect; { Se ocorrer algum erro durante a conexão com o servidor, avise! } if not NMSMTP1.Connected then raise Exception.Create('Erro de conexão'); with NMSMTP1.PostMessage do begin { Seu e-mail } FromAddress := '[email protected]'; { Seu nome } FromName := 'Annelise'; { E-mail do destinatário } ToAddress.Clear; ToAddress.Add('[email protected]'); { Assunto da mensagem } Subject := 'TESTE - ENVIO DE EMAIL'; { Corpo da mensagem } Body.Clear; Body.Add('Primeira linha da mensagem'); Body.Add('Segunda linha da mensagem'); Body.Add(''); { Linha em branco } Body.Add('Última linha da mensagem'); { Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) } Attachments.Clear; { Endereço do anexo } Attachments.Add('c:\diretorio\arquivo.txt'); end; { Manda o e-mail } NMSMTP1.SendMail; { Disconecta do servidor } NMSMTP1.Disconnect; end; { Para enviar o mesmo e-mail para vários destinatário de uma só vez basta adicionar os endereços de e-mails de todos os destinatários em NMSMTP1.PostMessage.ToAddress. } QUE DA O SEGUINTE ERRO: ... raised excepition class ESockError with message "Host LookupFailed". ...
  9. ele abre uma tela "ESCOLHER PERFIL" com a opçao do outlook
  10. GALERA ESTOU TENTANDO ENVIAR EMAIL ATRAVES DO DELPHI..... ESTE E O MEU CODIGO (QUE ME PASSARAM....) SE alguém PUDER ME AJUDAR....AGRADECEREI... unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Mapi, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function SendEMail(Handle: THandle; Mail: TStrings): Cardinal; type TAttachAccessArray = array [0..0] of TMapiFileDesc; PAttachAccessArray = ^TAttachAccessArray; var MapiMessage: TMapiMessage; Receip: TMapiRecipDesc; Attachments: PAttachAccessArray; AttachCount: Integer; i1: integer; FileName: string; dwRet: Cardinal; MAPI_Session: Cardinal; WndList: Pointer; begin dwRet := MapiLogon(Handle, PChar(''), PChar(''), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session); if (dwRet <> SUCCESS_SUCCESS) then begin MessageBox(Handle, PChar('Error while trying to send email'), PChar('Error'), MB_ICONERROR or MB_OK); end else begin FillChar(MapiMessage, SizeOf(MapiMessage), #0); Attachments := nil; FillChar(Receip, SizeOf(Receip), #0); if Mail.Values['to'] <> '' then begin Receip.ulReserved := 0; Receip.ulRecipClass := MAPI_TO; Receip.lpszName := StrNew(PChar(Mail.Values['to'])); Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to'])); Receip.ulEIDSize := 0; MapiMessage.nRecipCount := 1; MapiMessage.lpRecips := @Receip; end; AttachCount := 0; for i1 := 0 to MaxInt do begin if Mail.Values['attachment' + IntToStr(i1)] = '' then break; Inc(AttachCount); end; if AttachCount > 0 then begin GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount); for i1 := 0 to AttachCount - 1 do begin FileName := Mail.Values['attachment' + IntToStr(i1)]; Attachments[i1].ulReserved := 0; Attachments[i1].flFlags := 0; Attachments[i1].nPosition := ULONG($FFFFFFFF); Attachments[i1].lpszPathName := StrNew(PChar(FileName)); Attachments[i1].lpszFileName := StrNew(PChar(ExtractFileName(FileName))); Attachments[i1].lpFileType := nil; end; MapiMessage.nFileCount := AttachCount; MapiMessage.lpFiles := @Attachments^; end; if Mail.Values['subject'] <> '' then MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject'])); if Mail.Values['body'] <> '' then MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body'])); WndList := DisableTaskWindows(0); try Result := MapiSendMail(MAPI_Session, Handle, MapiMessage, MAPI_DIALOG, 0); finally EnableTaskWindows( WndList ); end; for i1 := 0 to AttachCount - 1 do begin StrDispose(Attachments[i1].lpszPathName); StrDispose(Attachments[i1].lpszFileName); end; if Assigned(MapiMessage.lpszSubject) then StrDispose(MapiMessage.lpszSubject); if Assigned(MapiMessage.lpszNoteText) then StrDispose(MapiMessage.lpszNoteText); if Assigned(Receip.lpszAddress) then StrDispose(Receip.lpszAddress); if Assigned(Receip.lpszName) then StrDispose(Receip.lpszName); MapiLogOff(MAPI_Session, Handle, 0, 0); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); var mail: TStringList; begin mail := TStringList.Create; try mail.values['to'] := '[email protected]'; ///AQUI VAI O EMAIL DO DESTINATARIO/// mail.values['subject'] := 'Hello'; ///AQUI O ASSUNTO/// mail.values['body'] := 'blah'; ///AQUI O TEXTO NO CORPO DO EMAIL/// mail.values['attachment0'] := 'C:\Test.txt'; ////AQUI O ENDEREÇO ONDE ENCONTRAM OS ARQUIVOS// mail.values['attachment1']:='C:\Test2.txt'; ///IDEM - NO ATTACHMENT1 TEM QUE COLOCAR A SEQUNCIA DO EMAIL A QUAL DESEJA ENVIAR EXEMPLO: ATTACHMENT1 sendEMail(Application.Handle, mail); finally mail.Free; end; end; end.
  11. BOM DIA GALERA, alguém PODE ME DIZER COMO POSSO ENVIAR EMAIL ATRAVES DO DELPHI? AGRADEÇO SE alguém PUDER ME AJUDAR. BJUS
  12. SERA Q alguém TEM AI UM PROGRAMA DE CONTROLE DE ESTOQUE COM O DCODIGO FONTE...E QUE não SE IMPORTARIA DE ME PASSAR PARA QUE EU POSSA DAR UMA ESTUDADA....ESTOU COMEÇANDO NO DELPHI...E QUERIA CRIAR UM PROGRAMINHA DE CONTROLE DE ESTOQUE. OBRIGADA.....BJUS
  13. e ai galera... blza? aki, tem como eu mudar a cor de um botao? se alguém puder me ajudar....brigadim
  14. GALERA, TO PRECISANDO DE FAZER UM CONTADOR DE ACESSOS... SERA QUE TEM COMO FAZER UM SEM USAR LINGUAGENS DO TIPO ASP OU PHP? SE alguém SOUBER DE ALGUM DA FORMA QUE ESTOU PRETENDENDO.....E PUDER ME AJUDAR! BRIGADIM
  15. Annelise

    Clima / Tempo

    BRIGADIM....... VALEU MESMO...FUNCIONOU
×
×
  • Create New...