Mengirim Email via Aspx

Versi VB

<% @Page Language="VB" Debug="true" %>
<% @Import Namespace="System.Web.Mail" %>
<% 
Dim strTo as   String
Dim strFrom as   String 
Dim strSubject as  String  

strTo = "dia@dia.Com" 
strFrom = "aku@aku.com" 
strSubject = "Hi Dia"  
SmtpMail.SmtpServer = "smtp.xxxx.com" 

SmtpMail.Send(strFrom, strTo, strSubject, "email dari aku untukmu") 
%>

Versi C#

<% @Page Language="C#" %>
<% @Import Namespace="System.Web.Mail" %>
<% 

string strTo = "dia@dia.com"; 
string strFrom = "aku@aku.com"; 
string strSubject = "Hi Dia";  
SmtpMail.SmtpServer = "smtp.xxxx.com"

SmtpMail.Send(strFrom, strTo, strSubject,"Email dari aku untukmu");  
Response.Write("Email berhasil dikirim"); 
%>

dimodifikasi dari sini

Sebelumnya ada error berikut waktu running scriptnya:
System.Runtime.InteropServices.COMException: The "SendUsing" configuration value is invalid.

Ternyata kalau tidak di set smtp nya, server akan menganggap smtp nya adalah localhost. Jadi kalau ada smtp khusus, tinggal ditambahin baris di bawah:
SmtpMail.SmtpServer = "smtp.xxxx.com"

Succesfully send the mail :)