[Delphi] E-mail versturen met attachment

[Verwijderd]

Ik heb een form met 2x een memo.

De bedoeling is dat ik de beide memo's via een e-mail naar een vast e-mail adres stuur.

De ene memo komt dan in de body van de e-mail en de andere moet als een tekst-bestand, dus een attachment aan het berricht worden gekoppeld.

Ik weet niet welke mailprogranmna er door de gebruiker wordt gebruikt. Het kan best zijn dat er gebruik gemaakt wordt van MS-Excange (or whatever) want de gebruikers zitten in een groot netwerk (erg groot).

Wie weet hier een niet al te moeilijke oplossing voor of weet waar ik een goede component kan downloaden die doet wat ik wil.

Heb al aardig gezocht maar kan niks vinden...

[Kool]

Een e-mailtje (met attachment) kun je simpel via het NMSMTP component op het FastNet tab sturen. De FastNet componenten schijnen nogal buggy te zijn maar deze werkt in ieder geval prima. Ook met de Indy componenten kun je mail versturen, maar die zijn iets lastiger in gebruik vind ik.

[Verwijderd]

het probleem is dat je dan wel een smtp server moet hebben/instellen. Je kan dus beter mapi gebruiken

[Verwijderd]

Ik kan waarschijnlijk geen SMTP instaleren. (Netwerk)
Hoe kan ik dat doen dan met MAPI eventueel?

[Tomatoman]

Kun je op dit moment e-mail versturen? De standaard mailserver in een bedrijf is over het algemeen een SMTP-server. Als je je eigen mailaccount wilt gebruiken, ben je klaar. Gewoon de gegevens van je mailaccount overnemen in je eigen programma en zenden maar.

Met Delphi wordt trouwens een kant en klaar demoprogramma meegeleverd voor het zenden/ ontvangen van mail. Het heet [Delphi]\Demos\FastNet\Smtp\SMTPDEMO.dpr

[Verwijderd]

Ik kan e-mail verzenden, maar het programma gaat gebruikt worden door honderden verschillende mensen die een ander mail adres hebben en dus ook andere instellingen kunnen hebbben.

Is er niet een manier die ervoor zorgt dat er gewoon een nieuw bericht wordt opgestart vanuit MS-outlook (bijvoorbeeld) en dat dan memo1 in de body komt en memo2 als een attachment mee wordt verstuurd?

[jelmervos]

Wat ik vond via Google:

code:

procedure SendAnAttachmentEMail ;
var
  OA, NS , MI : variant ;
begin
  OA := CreateOleObject('Outlook.Application') ;
  NS := OA.GetNameSpace('MAPI') ;
  MI := OA.createItem(0) ; file://MailItem
  MI.TO := '[e-mail]' ;
  MI.Subject := 'Here is a message with an attachment' ;
  MI.Body := 'Bla bla bla' ;
  MI.Attachments.Add('c:\foo.txt') ;
  MI.Send ;
end;

[Verwijderd]

Op donderdag 16 mei 2002 09:17 schreef jelmervos het volgende:
Wat ik vond via Google:

code:

procedure SendAnAttachmentEMail ;
var
  OA, NS , MI : variant ;
begin
  OA := CreateOleObject('Outlook.Application') ;
  NS := OA.GetNameSpace('MAPI') ;
  MI := OA.createItem(0) ; file://MailItem
  MI.TO := '[e-mail]' ;
  MI.Subject := 'Here is a message with an attachment' ;
  MI.Body := 'Bla bla bla' ;
  MI.Attachments.Add('c:\foo.txt') ;
  MI.Send ;
end;

Es kijken of ik hier wat mee kan.
Ziet er tenminste niet te moeilijk uit! Thx

[jelmervos]

Voorbeeld werkt alleen met Outlook, da's wel jammer.

[Verwijderd]

krijg de melding dat delphi CreateOleObject'' niet herkend...

Zal wel wat vergeten zijn, maar zo goed ben ik niet met delphi....plz help me out

[Skinkie]

misschien iets toevoegen in uses?

[Verwijderd]

Ja zo ver was ik ook al, maar wat.....

[WOmBaT]

Alle ole units...
OleAuto, OleCtnrs, OleCtrls, OleConst, Ole2, OleCtl, OleDlg
Moet je wel even kijken welke nodig zijn

[Verwijderd]

Dit werkt op zich maar ik sla memo2 op als een tekst bestand op c: en daarna voegt het programma dit tekst bestand in als attachment....

Ik krijg de melding dat het bestand niet bestaat terwijl het toch echt wel op de juiste plaats aanwezig is met de juiste benaming.....