Sending email via SDK
Posted: Fri Dec 26, 2014 2:51 am
I'm trying to setup an automated email system for pdf forms in my Delphi application. So far I have been able to configure NovaPdf 8 that it will silently make the pdf and now I'm trying to sent it via smtp. The problem is that I get a run-time message that states that I have not defined an email recipient, but as you can see from the following code example I did.
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_FOLDER_TYPE, SAVEFOLDER_CUSTOM);
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_LOCATION, LOCATION_TYPE_LOCAL);
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_FOLDER_TYPE, SAVEFOLDER_CUSTOM);
m_novaOptions.SetOptionString(NOVAPDF_SAVE_FOLDER, 'c:\\doc');
m_novaOptions.SetOptionString2(NOVAPDF_SAVE_FILE_NAME, 'myfile.pdf');
//do not show prompt dialog
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_PROMPT_TYPE, PROMPT_SAVE_NONE);
//if file exists, override
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_FILEEXIST_ACTION, FILE_CONFLICT_STRATEGY_OVERWRITE);
m_novaOptions.SetOptionBool(NOVAPDF_ACTION_DEFAULT_VIEWER, 0);
m_novaOptions.SetOptionBool(NOVAPDF_EMAIL_SEND, 1);
m_novaOptions.SetOptionLong(NOVAPDF_SENDEMAIL_ACTION, 2);
m_novaOptions.SetOptionString(NOVAPDF_EMAIL_SUBJECT, 'Your PDF');
m_novaOptions.SetOptionString(NOVAPDF_EMAIL_BODY, 'Email blablablablablablabla' + CRLF + 'More blablablabla');
m_novaOptions.SetOptionBool(NOVAPDF_EMAIL_ATTACH_PDF, 1);
m_novaOptions.SetOptionString2(NOVAPDF_SMTP_SERVER, 'my.smtp.host');
m_novaOptions.SetOptionString2(NOVAPDF_SMTP_PORT, '25');
m_novaOptions.SetOptionBool(NOVAPDF_SMTP_AUTHENTICATION, 0);
m_novaOptions.SetOptionBool(NOVAPDF_SMTP_SSL, 0);
m_novaOptions.AddEmail2(sEmailId);
m_novaOptions.AddEmailRecipient2(sEmailId, sNewRecipientId, '[email protected]',
'[email protected]', '', '');
m_novaOptions.SaveProfile();
What am I doing wrong?
Gr. HanTim
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_FOLDER_TYPE, SAVEFOLDER_CUSTOM);
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_LOCATION, LOCATION_TYPE_LOCAL);
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_FOLDER_TYPE, SAVEFOLDER_CUSTOM);
m_novaOptions.SetOptionString(NOVAPDF_SAVE_FOLDER, 'c:\\doc');
m_novaOptions.SetOptionString2(NOVAPDF_SAVE_FILE_NAME, 'myfile.pdf');
//do not show prompt dialog
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_PROMPT_TYPE, PROMPT_SAVE_NONE);
//if file exists, override
m_novaOptions.SetOptionLong(NOVAPDF_SAVE_FILEEXIST_ACTION, FILE_CONFLICT_STRATEGY_OVERWRITE);
m_novaOptions.SetOptionBool(NOVAPDF_ACTION_DEFAULT_VIEWER, 0);
m_novaOptions.SetOptionBool(NOVAPDF_EMAIL_SEND, 1);
m_novaOptions.SetOptionLong(NOVAPDF_SENDEMAIL_ACTION, 2);
m_novaOptions.SetOptionString(NOVAPDF_EMAIL_SUBJECT, 'Your PDF');
m_novaOptions.SetOptionString(NOVAPDF_EMAIL_BODY, 'Email blablablablablablabla' + CRLF + 'More blablablabla');
m_novaOptions.SetOptionBool(NOVAPDF_EMAIL_ATTACH_PDF, 1);
m_novaOptions.SetOptionString2(NOVAPDF_SMTP_SERVER, 'my.smtp.host');
m_novaOptions.SetOptionString2(NOVAPDF_SMTP_PORT, '25');
m_novaOptions.SetOptionBool(NOVAPDF_SMTP_AUTHENTICATION, 0);
m_novaOptions.SetOptionBool(NOVAPDF_SMTP_SSL, 0);
m_novaOptions.AddEmail2(sEmailId);
m_novaOptions.AddEmailRecipient2(sEmailId, sNewRecipientId, '[email protected]',
'[email protected]', '', '');
m_novaOptions.SaveProfile();
What am I doing wrong?
Gr. HanTim