Tags:
delphi
Min delphi skriver
[Error] Unit1.pas(64): Illegal character in input file: '&' ($26)
og
[Fatal Error] sms.dpr(5): Could not compile used unit 'Unit1.pas'
Når jeg vil kører kilden :
sendMail('skov@xcc.dk', 'hej@dd.dk', 'Subject', 'Body');
Hele kilden :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mapi, jpeg, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Label1: TLabel;
Memo1: TMemo;
SpeedButton2: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure sendMail(msgFrom, msgTo, msgSubject, msgBody : string);
var
msg : MapiMessage;
sender, target : MapiRecipDesc;
begin
sender.ulReserved := 0;
sender.ulRecipClass := MAPI_ORIG;
sender.lpszName := pChar(msgFrom);
sender.lpszAddress := pChar(msgFrom);
sender.ulEIDSize := 0;
sender.lpEntryID := NIL;
msg.lpOriginator := @sender;
target.ulReserved := 0;
target.ulRecipClass := MAPI_TO;
target.lpszName := pChar(msgTo);
target.lpszAddress := pChar(msgTo);
target.ulEIDSize := 0;
target.lpEntryID := NIL;
msg.nRecipCount := 1;
msg.lpRecips := @target;
msg.lpszSubject := pChar(msgSubject);
msg.lpszNoteText := pChar(msgBody);
mapiSendMail(0, 0, msg, 0, 0);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
sendMail('skov@xcc.dk', '29602605@gsm1800.telia.dk', 'Subject', 'Body');
end;
end.
Nogle der kan hjælpe mig
5 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
sendMail(''skov@xcc.dk', 'hej@dd.dk', 'Subject', 'Body');
Magler der ikke en ' i starten af koden????
0
Prøv at skifte "&" ud med "&&"
eller brug:
sendMail(''skov@xcc.dk', 'hej@dd.dk', 'Subject', 'Body');
[Redigeret d. 07/02-04 14:58:57 af Kasper Færch Mikkelsen]
0
Det virker ikke er der nogler der har en ide til hvordan jeg for delphi til at sende den mail ??? Kan det være fordi jeg ikke kører med min delphi 7 men kun 6 lige i øjblikket
[Redigeret d. 07/02-04 15:10:05 af Morten Skov]
0
Har fundet svaret selv koden var :
sendMail(''skov@xcc.dk', ''hej@lia.dk', 'Subject', 'Body');
Men nu skriver den " mapiSendMail(0, 0, msg, 0, 0); "
og Programmet cracher og den skriver at vilen msoe.dll ikke ikke finde x080000
hmm det er måske ikke en så velfungerende kildekod ??
0
virker ikke rigtig det mail fis