email verzenden

Status
Niet open voor verdere reacties.

Code95

Gebruiker
Lid geworden
15 jul 2009
Berichten
38
Hallo allemaal

Ik heb een vraagje ik heb een procedure TForm1.Edit1Change(Sender: TObject);
en een procedure TForm1.Button1Click(Sender: TObject);

Nu wil ik als de gebruiker op TForm1.Button1Click(Sender: TObject); klikt dat er dan een email naar Mart@hotmail.com word gestuurt met de tekst wat de gebruiker in TForm1.Edit1Change(Sender: TObject); heeft in gevuld

is dat mogenlijk zo ja hoe,wat is de code?:confused:

Code95
 
wanneer outlook is geinstalleerd dan kan je dit gebruiken:


uses ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const olMailItem = 0;
var Outlook: OLEVariant;
MailItem: Variant;
adres :string;
stringlist : TStringlist;
I: integer;
begin
try
stringlist := TStringlist.Create;
stringlist.Add('mart@hotmail.com');
//stringlist.Add('pipo@hotmail.com');
try
Outlook:=GetActiveOleObject('Outlook.Application') ;
except
Outlook:=CreateOleObject('Outlook.Application') ;
end;
MailItem := Outlook.CreateItem(olMailItem) ;
for I := 0 to stringList.Count - 1 do
MailItem.Recipients.Add(stringlist) ;
MailItem.Subject := 'Subject: testmail';
MailItem.Body := 'Geachte Heer, Mevrouw,' + #13 + #13 + editchange.text
+ #13 + #13 + 'Vriendelijke Groeten,' + #13 + 'afzender' ;

MailItem.Send;
Outlook := Unassigned;
finally
FreeAndNil(stringlist);
end;
end;
 
wanneer outlook is geinstalleerd dan kan je dit gebruiken:


uses ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const olMailItem = 0;
var Outlook: OLEVariant;
MailItem: Variant;
adres :string;
stringlist : TStringlist;
I: integer;
begin
try
stringlist := TStringlist.Create;
stringlist.Add('mart@hotmail.com');
//stringlist.Add('pipo@hotmail.com');
try
Outlook:=GetActiveOleObject('Outlook.Application') ;
except
Outlook:=CreateOleObject('Outlook.Application') ;
end;
MailItem := Outlook.CreateItem(olMailItem) ;
for I := 0 to stringList.Count - 1 do
MailItem.Recipients.Add(stringlist) ;
MailItem.Subject := 'Subject: testmail';
MailItem.Body := 'Geachte Heer, Mevrouw,' + #13 + #13 + editchange.text
+ #13 + #13 + 'Vriendelijke Groeten,' + #13 + 'afzender' ;

MailItem.Send;
Outlook := Unassigned;
finally
FreeAndNil(stringlist);
end;
end;



Heel erg bedankt:thumb::D:)

Code95
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan