--exec P_TYAN_SERVICE_SITE_CHECK
ALTER Prosedur [dbo].[P_TYAN_SERVICE_SITE_CHECK]
Sebagai
Menyatakan
@hitung ke dalam,
@objek ke dalam,
@ jam ke dalam,
@rc ke dalam,
@keluaran varchar(400),
@deskripsi varchar (400),
@sumber varchar(400),
@pengirim varchar(50),
@nama pengirim varchar(50),
@serveraddress varchar(255),
@penerima varchar(255),
@namapenerima varchar(255),
@subjek varchar(255),
@mailbody varchar(8000)
--Email otomatis dimulai
pilih @count= count(*) dari [dbo].[TYAN_SERVICE_SITE] di mana area bukan null dan cust_name bukan null dan ship_location bukan null dan negara bukan null dan cust_no bukan null dan (CUST_TYPE adalah null atau SERVICE_SITE adalah null )
jika(@hitung!=0)
mulai
Setel @pengirim='Mail Otomatis'
Setel @sendername='Mail Otomatis'
Setel @serveraddress='10.98.0.211'
--Ini alamat penerimanya. Variabel ini sepertinya tidak berguna, jadi tambahkan langsung di akhir. Lihat saja di bawah -------
Setel @penerima =''
--judul----------------
Setel @subjek='Mail'
-------Berikut adalah data yang ingin ditampilkanBegin---------------------
Setel @mailbody=N'<html><head>
</kepala><tubuh>
<p style="margin-bottom:12.0pt"><ukuran font=1 wajah=Arial><span
lang=EN-US style="font-size:9.0pt;font-family:Arial">Yang terhormat:<o:p></o:p></span></font></p>
<p style="margin-bottom:12.0pt"><ukuran font=1 wajah=Arial><span
lang=EN-US style="font-size:9.0pt;font-family:Arial">Harap pertahankan Tyan baru ini
Situs Layanan:<o:p></o:p></span></font></p>
<tabel style="font-family:trebuchet ms;ukuran font: 10pt; border-collapse:collapse" cellpadding="2" bordercolor="hitam" border=1>
<tr bgcolor=oranye sejajar=tengah>
<td >AREA</td>
<td >NEGARA</td>
<td >TIDAK BISA</td>
<td >NAMA KHUSUS</td>
</tr>'
--<td align=left>Nama Departemen</td>
Menyatakan
@str varchar(8000),
@AREA nvarchar(50),
@NEGARA varchar(50),
@CUST_NO varchar(50),
@CUST_NAME varchar(50),
@vcount ke dalam
mulai
atur @vcount=1
atur @str=''
Deklarasikan c_at Kursor
UNTUK
pilih area,negara,cust_no,cust_name yang berbeda dari [dbo].[TYAN_SERVICE_SITE] di mana area bukan null dan cust_name bukan null dan ship_location bukan null dan negara bukan null dan cust_no bukan null dan (CUST_TYPE adalah null atau SERVICE_SITE adalah batal )
BUKA c_at
MENGAMBIL BERIKUTNYA DARI c_at KE @AREA,@COUNTRY,@CUST_NO,@CUST_NAME
SAAT (@@FETCH_STATUS = 0)
MULAI
atur @str=@str+'<tr align=center>'
setel @str=@str+'<td >'+@AREA+'</td>'
setel @str=@str+'<td >'+@COUNTRY+'</td>'
setel @str=@str+'<td >'+@CUST_NO+'</td>'
setel @str=@str+'<td >'+@CUST_NAME+'</td>'
atur @vcount=@vcount+1
MENGAMBIL BERIKUTNYA DARI c_at KE @AREA,@COUNTRY,@CUST_NO,@CUST_NAME
AKHIR
-------Berikut adalah data yang ingin Anda tampilkan akhir---------------------
TUTUP c_at
DEALOKASI c_at
akhir
Setel @mailbody = @mailbody+@str+'</table></body></html>'
Jalankan @hr = sp_OACBuat 'jmail.message', @object OUTPUT
Exec @hr = sp_OASetProperty @objek, 'Charset', 'BIG5'
--@penerima --Alamat email penerima Anda---------------------------------------- ----- ---------------
Exec @hr = sp_OAMethod @object, 'AddRecipient',NULL,'alamat surat Anda'
--Exec @hr = sp_OAMethod @object, 'AddRecipientBCC',NULL,'alamat surat Anda'
Exec @hr = sp_OASetProperty @objek, 'Subjek',@subjek
Exec @hr = sp_OAsetProperty @objek, 'HTMLBody' ,@mailbody
Exec @hr = sp_OAsetProperty @objek, 'Prioritas' , 1
Jika Tidak @sender adalah null
Exec @hr = sp_OASetProperty @objek, 'Dari', @pengirim
Jika Tidak @sendername adalah null
Exec @hr = sp_OASetProperty @objek, 'FromName', @sendername
--Email otomatis dimulai
Exec @hr = sp_OAMethod @object, 'Kirim', null,@serveraddress
Exec @hr = sp_OAGetErrorInfo @objek, @sumber OUTPUT, @deskripsi OUTPUT
jika (@jam = 0)
Mulai
Setel @output='Sumber kesalahan: '+@source
Cetak@keluaran
Pilih @output = 'Deskripsi kesalahan:' + @description
Cetak@keluaran
Akhir
Kalau tidak
Mulai
Cetak 'Gagal mendapatkan informasi kesalahan! '
Kembali
Akhir
--Lepaskan objek JMail.Message
EXEC @jam = sp_OADestroy @object
--JIKA @ jam <> 0
--MULAI
-- EXEC sp_OAGetErrorInfo @object
-- KEMBALI
--AKHIR
akhir
Prosedur tersimpan di atas selesai,
Terlampir adalah pembukaan Prosedur Otomasi Ole
--- Buka Prosedur Otomasi Ole ----
sp_configure 'tampilkan opsi lanjutan', 1;
PERGI
KONFIGURASI ULANG;
PERGI
sp_configure 'Prosedur Otomatisasi Ole', 1;
PERGI
KONFIGURASI ULANG;
PERGI
Anda dapat menggunakannya setelah melakukan sedikit modifikasi berdasarkan data Anda sendiri. Mengirim email umumnya digunakan bersama dengan tugas agen server sql untuk mengirim email secara teratur.
Artikel ini berasal dari blog CSDN. Harap sebutkan sumbernya saat mencetak ulang: http://blog.csdn.net/liaolian9948/archive/2009/12/31/5110313.aspx
-