Sending email by SQL with CDO

I have developed a project with requirement to send mail by SQL using CDO (component Data Objects) Technology. it’s very simple!
I save the script in SQL that can be accessed by the web/desktop application with a call SP (Stored Procedure).

here is the script.


CREATE procedure sp_sendmail
@from varchar(500) ,
@to varchar(1000) ,
@subject varchar(500),
@body varchar(8000) ,
@smtpserver varchar(25),
@bodytype varchar(10)
as

declare @imsg int
declare @hr int
declare @source varchar(255)
declare @description varchar(500)
declare @output varchar(1000)

– Create reference to the CDO component.
exec @hr = sp_oacreate ‘cdo.message’, @imsg out
exec @hr = sp_oasetproperty @imsg,
‘configuration.fields(“http://schemas.microsoft.com/cdo/configuration/sendusing”).value’,’2′

exec @hr = sp_oasetproperty @imsg, ‘configuration.fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver”).value’, @smtpserver

exec @hr = sp_oamethod @imsg, ‘configuration.fields.update’, null
exec @hr = sp_oasetproperty @imsg, ‘to’, @to
exec @hr = sp_oasetproperty @imsg, ‘from’, @from
exec @hr = sp_oasetproperty @imsg, ‘subject’, @subject

– if you are using html e-mail, use ‘htmlbody’ instead of ‘textbody’.

exec @hr = sp_oasetproperty @imsg, @bodytype, @body
exec @hr = sp_oamethod @imsg, ‘send’, null

– sample error handling.
if @hr <>0
select @hr
begin
exec @hr = sp_oageterrorinfo null, @source out, @description out
if @hr = 0
begin
select @output = ‘ source: ‘ + @source
print @output
select @output = ‘ description: ‘ + @description
print @output
end
else
begin
print ‘ sp_oageterrorinfo failed.’
return
end
end
exec @hr = sp_oadestroy @imsg

Enum

Enum atau enumeration adalah suatu tipe data yang terdiri dari elemen-elemen yang memiliki nilai tetap/konstan. Contoh penggunaan enum yang paling sering adalah ketika mendefinisikan status suatu kondisi, misalnya status dokumen apakah sudah di approve, reject ato belum di eksekusi. Dan cara penulisan enum-pun sama seperti kita mendefinisikan class/object.
public enum enumApproval
{
None = 0,
Approved = 1,
Rejected = 2
}

dan cara pemanggilannya cukup dengan cara

Dim objApproval As enumApproval = enumApproval.None

Nah, karena enum tsb memiliki kelompok nilai konstan, biasanya pada layer User Interface, value dari enum tsb ditampilkan dalam suatu combobox, dropdownlist atau listbox dsb. Karena nilai enum bisa dianggap sebagai array(data array name-value), maka kita bisa langsung melakukan data binding ke ComboBox misalnya, dengan cara :

cmbApprovalStatus.DataSource = [Enum].GetNames(GetType(enumApproval))

Begitu pula sebaliknya, ketika akan mengambil nilai enum dari value combobox yang dipilih cukup :

Dim objApproval As enumApproval = [Enum].Parse(GetType(enumApproval), cmbApproval.Text)

Onesoft Module at a glance.

Onesoft standard module, as shown in the below :

ERP di masa depan

Seiring dengan tuntutan bisnis, kebutuhan industri akan melampaui apa yang dapat didukung oleh ERP tradisional yang secara murni hanya memfokuskan pada pengelolaan sumber daya. Industri modern memerlukan ERP bernilai tambah yang mempunyai cakupan aspek bisnis yang lebih luas.

ERP Akan Lebih Mendukung Customer Service

Sesuai dengan konsep ‘Customer is King’, maka industri manufaktur tidak cukup hanya untuk menghasilkan produk-produk dengan harga murah yang bermutu tinggi. Suatu industri seharusnya juga memberikan nilai tambah dalam bentuk Customer Service. Meskipun dua produk mempunyai mutu dan harga yang sama, konsumen akan lebih memilih untuk membeli produk dari perusahaan yang dapat memberikan customer service yang lebih baik.

Customer Service bisa diberikan sebelum terjadi transaksi penjualan, misalnya membantu konsumen memilih dan menentukan konfigurasi dari produk yang akan dipesan (dari konsep make-to-stock menjadi konsep make-to-order), mensimulasikan hasil pesanan dalam bentuk gambar, contoh, ataupun prototipe, menentukan jadwal pengantaran hasil pesanan yang akan dapat terlaksana, dan sebagainya.

Onesoft Business Solution

Onesoft Business Solution adalah sebuah Enterprise Resources Planning (ERP), sebuah sistem terintegrasi yang customizable dan mendukung multiple currency berbasis Client Server dengan menggunakan teknologi .NET dan Microsoft SQL Server.

Onesoft Business Solution ditujukan bagi perusahaan-perusahaan yang bergerak di bidang distribusi, manufaktur, jasa, dan trading.

Beberapa contoh modul pada Onesoft Business Solution antara lain General Ledger, Accounts Payable, Accounts Receivable, Bank & Cash, Inventory Management, Production, Point of Sales (POS), Transportation Management, dan Basic & Administration.