I have this email script that I am using it works fine. Blow is part of the script.
to_param = a5_eval_expression(alltrim(tbl.Email),local_variables())
cc_param = a5_eval_expression(" ",local_variables())
bcc_param = a5_eval_expression(" ",local_variables())
subject_param = a5_eval_expression("Monthly Expense Report for "+quote(tbl.Depcomb),local_variables())
message_param = a5_eval_expression("Hi, "+chr(13)+chr(10)+chr(13)+chr(10)+"Attached please find the Blackberry, Office & Cellphone charges for the month of October,2009. "+chr(13)+chr(10)+chr(13)+chr(10)+"For easy review, International calls, Information & text messaging, Local, Long Distance/One time costs are now seperated."+chr(13)+chr(10)+chr(13)+chr(10)+"The name, account and discontinued line changes were sent to November and are not reflected on this report, all transfers related to the changes will be posted on the November 2009 monthly report. "+chr(13)+chr(10)+chr(13)+chr(10)+"If you have any questions or need a detail billing report please contact me."+chr(13)+chr(10)+chr(13)+chr(10)+"Don't print this report unless its absolutely necessary. "+chr(13)+chr(10)+chr(13)+chr(10)+"Thanks and lets \"GO Green\""+chr(13)+chr(10)+chr(13)+chr(10)+"Kofi",local_variables())
':Report.Send("Combined_det_summ_rept","PDF",query.filter,query.order,"default",to_param,subject_param,message_param,cc_param,bcc_param)
:Report.Send("Combined_det_summ_rept","PDF",query.filter,query.order,"default",to_param,subject_param,message_param,cc_param,bcc_param)
tbl.fetch_next()
end while
'if using table.current() above, don't close table per next line
tbl.close()
What I want to do is to save the email in Outlook. Any code to do that?
Thanks
to_param = a5_eval_expression(alltrim(tbl.Email),local_variables())
cc_param = a5_eval_expression(" ",local_variables())
bcc_param = a5_eval_expression(" ",local_variables())
subject_param = a5_eval_expression("Monthly Expense Report for "+quote(tbl.Depcomb),local_variables())
message_param = a5_eval_expression("Hi, "+chr(13)+chr(10)+chr(13)+chr(10)+"Attached please find the Blackberry, Office & Cellphone charges for the month of October,2009. "+chr(13)+chr(10)+chr(13)+chr(10)+"For easy review, International calls, Information & text messaging, Local, Long Distance/One time costs are now seperated."+chr(13)+chr(10)+chr(13)+chr(10)+"The name, account and discontinued line changes were sent to November and are not reflected on this report, all transfers related to the changes will be posted on the November 2009 monthly report. "+chr(13)+chr(10)+chr(13)+chr(10)+"If you have any questions or need a detail billing report please contact me."+chr(13)+chr(10)+chr(13)+chr(10)+"Don't print this report unless its absolutely necessary. "+chr(13)+chr(10)+chr(13)+chr(10)+"Thanks and lets \"GO Green\""+chr(13)+chr(10)+chr(13)+chr(10)+"Kofi",local_variables())
':Report.Send("Combined_det_summ_rept","PDF",query.filter,query.order,"default",to_param,subject_param,message_param,cc_param,bcc_param)
:Report.Send("Combined_det_summ_rept","PDF",query.filter,query.order,"default",to_param,subject_param,message_param,cc_param,bcc_param)
tbl.fetch_next()
end while
'if using table.current() above, don't close table per next line
tbl.close()
What I want to do is to save the email in Outlook. Any code to do that?
Thanks