- Delphiartiklar, tips, forum, länksamling - 

      

START | DELPHI | LÄNKARGÄSTBOK 




 Forum

Grundkurs
  »Introduktion
  »Snabbguide
  »Komponenter
  »Händelser
  »Strängar
  »Räkna med Delphi   »Egna typer
  »Selektion
  »Iteration
  »Menyer
  »Funktioner
  »Arraystrukturer

Tips & Tricks
  »Nya tips
  »Blandat
  »Databaser
  »Filer
  »Forms
  »Grafik
  »Internet
  »Komponenter
  »Matematik
  »Multimedia
  »Objekt/ActiveX
  »Skrivare
  »Strängar
  »System
  »Mest lästa tips

Artiklar
  »Delphi och ADO
  »Bygga en DLL
  »Skapa en enkel rapport
  »Hantera registret
  »Enheter, units
  »Klassen TCanvas
  »Använd LookUp Controls

 Nya tips
 Lägg till tips
 Delphilänkar
 Gästbok

 

Skicka ett e-mail från Delphi Kategori: Internet
Inlagt: 2002-11-06
Läst: 1425
Inlagt av: Mac
Beskrivning
Denna procedure skickar ett e-mail från Delphi, ta bort det det inte behöver av koden 
Kod
NMSMTP1.Host := 'mail.host.com';
NMSMTP1.UserID := 'Username';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'någon@något.com';//Från
NMSMTP1.PostMessage.ToAddress.Text := 'någon@något.com';//Till
NMSMTP1.PostMessage.ToCarbonCopy.Text := 'någon@något.com';//Kopia till någon
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'någon@något.com';//Hemlig kopia
NMSMTP1.PostMessage.Body.Text := 'Din text';//Texten
NMSMTP1.PostMessage.Attachments.Text := 'C:\Viktigt.txt';//Bifogar en fil
NMSMTP1.PostMessage.Subject := 'Änme';//Ditt ämne
NMSMTP1.SendMail;//Denna måste vara med
ShowMessage('Mailet skickat!');
NMSMTP1.Disconnect;

 
 
© Copyright 2005 - Staffan Berg
- Alla rättigheter förbehålles -