Simpel sms

www.coolsms.dk

Du kan også sende sms´en som en mail til det pågældende selskab .. du kan bruge F.Piettes SMTP komponent

<MobilNr>@note.sonofon.dk
<MobilNr>@sms.tdm.dk
<MobilNr>@sms.mobilix.dk
<MobilNr>@gsm1800.telia.dk

hvis du ikke ved hvilket selskab det pågældende nr har skulle du kunne bruge orange .. den skulle sende den videre til det rette selskab.
<MobilNr>@orange.dk

Function SendSMSMailMessage(MailServer, MailTo, MailFrom, MailSubject, MailMsg: string):boolean;
begin
    Result                    := False;
    SmtpCli1.Host            := MailServer;
    SmtpCli1.Port            := 'smtp';
    SmtpCli1.FromName        := MailFrom;
    SmtpCli1.RcptName.Text    := MailTo;
    SmtpCli1.HdrSubject      := MailSubject;
    SmtpCli1.MailMessage.Text := MailMsg;

    if SmtpCli1.Connect then
        begin
              Result := SmtpCli1.Mail;
              SmtpCli1.Quit;
        end;
end;

procedure SendSMS;
begin
    if not SendSMSMailMessage('note.sonofon.dk', '20xxxxxx@note.sonofon.dk', 'coolwil@the.net', 'Alarm', 'En eller anden besked') then LogEnFejl;
end;

hvor finder jeg F.Piettes SMTP komponent
???

brug NMSMTP, se under FastNet folderen

begin
            if not NMSMTP1.Connected then
            begin
              try
                NMSMTP1.Connect;
              except
                  on Exception do
                ShowMessage('Invalid Pop Mail Host IP Adress');
              end;
            end;
            if Connected then
            begin
              SendingMail := True;
              ClearParameters;
              PostMessage.Body.Clear;
              PostMessage.FromAddress := lEditFromMailadr.Text;
              PostMessage.FromName := lEditMailFromName.Text;
              PostMessage.ToAddress.Add(QueryUser.FieldByName('SMSPhoneNo').AsString +'@'+
                                        QueryUser.FieldByName('SMSAdr').AsString);
              PostMessage.Subject := lEditMailSubject.Text;
              Memo1.Clear;
              Memo1.Lines.Add( QueryUser.FieldByName('SMSPhoneNo').AsString +'@'+
                                        QueryUser.FieldByName('SMSAdr').AsString);
              Memo1.Lines.Add(AppNo+ ' ' +AppName+ ' ' +AlText);
              PostMessage.Body.AddStrings(Memo1.Lines);
  // NMSMTP1.PostMessage.LocalProgram := 'EmailBlast';
              SendMail;
              Application.ProcessMessages;
            end
            else
              ShowMessage('fail to sent');
          end; //while not QueryUser.Eof do

skal jeg bare bruge den nederste kode eller begge t0? kan du ikke lave et zip projekt måske?

Er tilbage om 20 min

den nederste kode

oki:-)
tester den lige en gang

kan ikke rigtig få den til at rulle du:-(

kan du ikke lave en zip fil med projektet morten? vil med glæde smidde nogle flere points på hvis det er det:-)

kan du ikke vent til i aften, så sender jeg noget der dur

jo mange tak:-) du kan bare sende ti, wil@talkzone.dk eller smidde den ud her på siden, venter spændt:-)

Så er koden sendt til din mail adr

tjeckker den lige du:-)

Er den ok ?

ja det er helt fint, jeg får ingen tider under 1 min pr sms, lige meget hvilke selskab jeg sender til;.)
Jeg har kun 18 points tilbage, så dem smidder jeg lige oveni, har desværre ikke flere:-(