![]() |
|
#1
|
|||
|
|||
|
This is a bit out the ordinary but I have a name and email list in a database.
I want to export all the emails addresses to Outlook express as a blind copy. I have been exporting the emails to a CSV file. I then use a third party email program, delete all the contacts and then import the new ones from the CSV. This is for club correspondence. I'm trying to automate the process as the next club secretary may no be so computer literate. I'm not looking for a instant solution (one would be nice) but where do I start to look. |
|
#2
|
|||
|
|||
|
Why don't you send the email directly (without Outlook) from the database?
__________________
Regards, Abdulaziz Jasser |
|
#3
|
|||
|
|||
|
That can be done, but thinking ahead, all the ISP connection details would then have to be programmed into Delphi to use their email connection and I'm trying to make it simpler. On the other-hand I could use gmail but then they would have to be able to add text and photos to the Gmail email.
I think having the computers default email program popup and the names in the BCC would be the best option. Just talking about it make me see a number of potential problems, hopefully less than the CSV option. |
|
#4
|
|||
|
|||
|
protocol you're looking for is SMAPI (starting default email client)
Quick internet search will give you the samples |
|
#5
|
|||
|
|||
|
Code:
protocol you're looking for is SMAPI (starting default email client) |
|
#6
|
|||
|
|||
|
Then check the bellow link for complete sample:
http://www.swissdelphicenter.ch/en/showcode.php?id=111
__________________
Regards, Abdulaziz Jasser |
|
#7
|
|||
|
|||
|
Fantastic replies. Where do I send the Gold Stars?
After bit of a scratch around I found the BCC details. Code:
procedure TfMain.Button3Click(Sender: TObject); var sEmail,sBCC,sSubject,sBody,sParam: string; begin sEmail:='user@host.com'; sBCC:='Your list'; sSubject:='Your Subject'; sBody:='Your Message Text'; sParam:='mailto:'+sEmail+'?BCC='+sBCC+'&subject='+sSubject+'&Body='+sBody; ShellExecute(fMain.Handle,'open',PChar(sParam),nil,nil,SW_SHOWNORMAL); end; |
|
#8
|
|||
|
|||
|
I forgot to add
uses ShellApi; |
![]() |
| Thread Tools | |
| Display Modes | |
|
|