Hej jeg er ved at lave et program hvor men jeg er løbet ind i et problem jeg vil gerne have det sådan at når brugeren intaster noget i et edit felt og tryker på send så sender programmet det som står i edit feldet til en E-mail. er der en der kan fortælle mig hvordan jeg gøre det feks ved at skrive en grundig forklaring tl det
Håber at der er en der kan hjælpe mig???
Jeg går ud fra at problemet består i at sende emailen, og ikke i at få information ud af et edit field.
Jeg vil foreslå at du kigger lidt her:
<br>
<a href=http://www.techtricks.com/delphi/sendmail.php>Sending mail using MAPI</a>
<br>
Jeg har også lavet et hurtigt sammenkog af det mindste der skal til for at sende mailen.
<pre>
program mailtest;
uses Mapi;
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;
begin
sendMail('from@me.dk', 'to@another.dk', 'Subject', 'Body');
end.
</pre>
Mvh.,
Jakob Justsen