MailMessage mail = new MailMessage();
mail.To.Add("보내는사람주소");
mail.From = new MailAddress("Gmail아이디@gmail.com");
mail.Subject = "아뵹~ 이건 멜 테스트야~";
string Body = "메일 테스트라고 했지?<br />그런거야?";
mail.Body = Body;
mail.IsBodyHtml = true;
SmtpClient smtp = new SmtpClient();
smtp.Host = "smtp.gmail.com";
smtp.Credentials = new System.Net.NetworkCredential("Gmail아이디@gmail.com", "Gmail암호");
smtp.EnableSsl = true;
smtp.Send(mail);
| Constant | Value | Description |
|---|---|---|
| adCmdUnspecified | -1 | Does not specify the command type argument. |
| adCmdText | 1 | Evaluates CommandText as a textual definition of a command or stored procedure call. |
| adCmdTable | 2 | Evaluates CommandText as a table name whose columns are all returned by an internally generated SQL query. |
| adCmdStoredProc | 4 | Evaluates CommandText as a stored procedure name. |
| adCmdUnknown | 8 | Default. Indicates that the type of command in the CommandText property is not known. |
| adCmdFile | 256 | Evaluates CommandText as the file name of a persistently stored Recordset. Used with Recordset.Open or Requery only. |
| adCmdTableDirect | 512 | Evaluates CommandText as a table name whose columns are all returned. Used with Recordset.Open or Requery only. To use the Seek method, the Recordset must be opened with adCmdTableDirect. This value cannot be combined with the ExecuteOptionEnum value adAsyncExecute. |
The table below shows the ADO Data Type mapping between Access, SQL Server, and Oracle:
| DataType Enum | Value | Access | SQLServer | Oracle |
|---|---|---|---|---|
| adBigInt | 20 | BigInt (SQL Server 2000 +) | ||
| adBinary | 128 | Binary TimeStamp |
Raw * | |
| adBoolean | 11 | YesNo | Bit | |
| adChar | 129 | Char | Char | |
| adCurrency | 6 | Currency | Money SmallMoney |
|
| adDate | 7 | Date | DateTime | |
| adDBTimeStamp | 135 | DateTime (Access 97 (ODBC)) | DateTime SmallDateTime |
Date |
| adDecimal | 14 | Decimal * | ||
| adDouble | 5 | Double | Float | Float |
| adGUID | 72 | ReplicationID (Access 97 (OLEDB)), (Access 2000 (OLEDB)) | UniqueIdentifier (SQL Server 7.0 +) | |
| adIDispatch | 9 | |||
| adInteger | 3 | AutoNumber Integer Long |
Identity (SQL Server 6.5) Int |
Int * |
| adLongVarBinary | 205 | OLEObject | Image | Long Raw * Blob (Oracle 8.1.x) |
| adLongVarChar | 201 | Memo (Access 97) Hyperlink (Access 97) |
Text | Long * Clob (Oracle 8.1.x) |
| adLongVarWChar | 203 | Memo (Access 2000 (OLEDB)) Hyperlink (Access 2000 (OLEDB)) |
NText (SQL Server 7.0 +) | NClob (Oracle 8.1.x) |
| adNumeric | 131 | Decimal (Access 2000 (OLEDB)) | Decimal Numeric |
Decimal Integer Number SmallInt |
| adSingle | 4 | Single | Real | |
| adSmallInt | 2 | Integer | SmallInt | |
| adUnsignedTinyInt | 17 | Byte | TinyInt | |
| adVarBinary | 204 | ReplicationID (Access 97) | VarBinary | |
| adVarChar | 200 | Text (Access 97) | VarChar | VarChar |
| adVariant | 12 | Sql_Variant (SQL Server 2000 +) | VarChar2 | |
| adVarWChar | 202 | Text (Access 2000 (OLEDB)) | NVarChar (SQL Server 7.0 +) | NVarChar2 |
| adWChar | 130 | NChar (SQL Server 7.0 +) | |
* 발신자 Email 주소는 변경할수 없슴, 변경하면 발송안됨, 이 글을 쓴 상태에선 그렇습니다.
* 구글어플리케이션을 이용하여 도메인 연결하시고 쓰시면 도메인 이메일 주소로도 가능합니다~ ^^;
Function GoogleSendMail(strTo, strSubject, strBody)
On Error Resume Next
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpaccountname") = "웃는남자@gmail.com"
Flds.Item(schema & "sendemailaddress") = "웃는남자@gmail.com"
Flds.Item(schema & "smtpuserreplyemailaddress") = "웃는남자@gmail.com"
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "웃는남자@gmail.com"
Flds.Item(schema & "sendpassword") = "계정암호"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
Set Flds = Nothing
Set iMsg = Server.CreateObject("CDO.Message")
With iMsg
.Configuration = iConf
.To = strTo
.Subject = strSubject
.HTMLBody = strBody
SendEmailGmail = .Send
End With
set iMsg = nothing
set iConf = nothing
set Flds = nothing
If Err.number <> 0 Then
GoogleSendMail = Err.Description
Else
GoogleSendMail = 0
End If
End Function
Ret = GoogleSendMail("abc@abc.com", Now , "내용이얌")
|
rotator.zip
