at lave en sms sender til sonofon.

på følgende mail: billund@expert.dk

Jeg kan lave det til dig.

Hvis smtp/gatewayen skal hardcodes ind i må du lige maile det til mig.

sh@tradestone.dk

Soney

stoney er du nu sikker på at man kan lave det vir smpt?

/ZIRON

jeg regnede med at bruge teledanmark smtp server men det ville værer rigtig fed hvis du kunne lave det som options så man kan ændre i dem til sener brug...( det samme med afsender.)
teledanmark smtp server: ( smtp.mail.dk)

Heino.

ja så hedder mail bare xxxxxxxx@note.sonofon.dk

ja jeg ved godt at det er note.sonofon.dk, men er der ikke noget med at de vil/har lukket så man ikek kan sende til mobiler. og det er vist dem alle sammen, mobilix, teledanmark og .......

/ZIRON

det tror jeg ikke tjekker det lige

ziron>>

Om ikke andet kan hp-power vel bruge sin egen smtp.
Det virker da udmærket hos mig.

Stoney

ja det kan jeg da også bare den hedder: mail.hp-power.dk

Heino
www.hp-power.dk

de bliver heller ikke lukket med nogle sider på nette vil blive lukket.

stoney >> nej det vil han jo ikke hvis det er teleselskaberne som lukker funktionen.

hp-power >> jeg ved ikke om det kun er nogle sider. det jeg skriver overfor er de rygter som jeg har hørt..

/ZIRON

jeg kender en inde fra sonofon, han siger at det ikke blver stoppet, med at de gratise sidder bliver nok lukket med tiden da de betaler noget pr. sms de sender.
>>Stoney. hvornår tror du programmer er færdig....

hmmm lyder lidt underligt at de lukker ned for deres gateway som folk kan låne mod betaling. for der kan jo stadig sendes gennem deres mail til mobil funktion, tager dog noget længere tid, men teleselskaberne betaler sku da stadig for til, hmmm, men okay.

hp-power >> har du kigget på den demo som ligger i dit delphi bib?

Delphi6\\Demos\\FastNet\\Smtp

/ZIRON

Du får det senere i dag.
Jeg skal lige hjem fra arbejde.

Stoney

ja du kan vidre sende din mail for det betaler du jo for, det jeg sagde var at de sider på netter hvor du kan sende gratise sms, logo, ringetoner vil nok blive lukket da de skal til at betale Fx. sonofon for den service som pr. d.d. er gratis.

Heino.

Øøh, jeg går ud fra du har Indy componenterne.
Dem havde jeg tænkt mig at bruge til programmet.

Stoney

ja jeg har delphi 6 med alt

Mail sendt

Stoney

www.cool-web.dk/sms.zip

den her sender til alle danske tele udbydere:-)

wil/

Her har du koden til dit program, drop din email og jeg sender programmet til dig

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Psock, NMsmtp, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    EditTlfNr: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    EditSubject: TEdit;
    NMSMTP1: TNMSMTP;
    Label2: TLabel;
    Label3: TLabel;
    EditMailServer: TEdit;
    Label4: TLabel;
    EditFraMail: TEdit;
    Label5: TLabel;
    EditFraNavn: TEdit;
    RadioGroup1: TRadioGroup;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SendingMail : Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
//Kode ind her
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if NMSMTP1.Connected then
  NMSMTP1.Disconnect;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TeleSelskab : String;
begin
  NMSMTP1.Host := EditMailServer.Text;
  with NMSMTP1 do
  begin
    if not 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 := EditFraMail.Text;
      PostMessage.FromName := EditFraNavn.Text;
      case RadioGroup1.ItemIndex of
        0 : TeleSelskab := '@note.sonofon.dk';
        1 : TeleSelskab := '@sms.tdm.dk';
        2 : TeleSelskab := '@sms.mobilix.dk';
        3 : TeleSelskab := '@gsm1800.telia.dk'
      end;
      PostMessage.ToAddress.Add(EditTlfNr.Text+TeleSelskab);
      PostMessage.Subject := EditSubject.Text;
      PostMessage.Body.AddStrings(Memo1.Lines);
      NMSMTP1.PostMessage.LocalProgram := 'EmailBlast';
      SendMail;
      Application.ProcessMessages;
    end else
      ShowMessage('fail to sent');
    if NMSMTP1.Connected then
      NMSMTP1.Disconnect;
  end;


end;

end.

Det er samme kode som cool-wils, det er mig der har skrevet hans :)

Cool-wil> VIL DU VÆRE VENLIG AT FJERNE MIT MOBILTELFONNR+ MIN MAIL ADR. FRA KODEN

Morten

ej for fanden morten, det havde jeg fundstændig glemt, jeg ordner det asap
lagde bare din zip op:-(
Jeg laver det lige...

sorry