외부smtp로 메일보내기

일단 환경에 대해 설명을 하자면
외부smtp로 사용하고 하는 서버는 2000 이구, nMail이 깔려있는 상태구여
메일발송을 하려고 하는 서버는 2003 입니다

nMail환경설정에서 스팸에 대한 처리는 다 해놨구여
smtp포트는 25번을 사용합니다

제가 사용한 소스는 아래와 같구여

'메일보내기
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")

' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.aaa.com"
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "계정명@aaa.com"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "계정비번"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = to_email '보내는 사람 이메일 주소
objMessage.From = "보내는이<"&CompanyEmail&">" '받는 사람 이메일 주소
objMessage.Subject = subject '제목
objMessage.HTMLBody = content
objMessage.HTMLBodyPart.Charset="ks_c_5601-1987"

objMessage.fields.update
objMessage.Send

'Response.write "발송 완료!!!!"

set objMessage = nothing
set objConfig = nothing


//----- 성공소스


< %
Option Explicit

Response.Expires = -1
Response.AddHeader "Pragma", "no_cache"
Response.AddHeader "cache-control", "no_cache"
% >
< !--#include virtual="/inc/f_common.asp"-- >
< !--#include virtual="/inc/f_mssql.asp"-- >
< %
ConnectDB()

Dim iMsg
Dim iConf
Dim Flds

Set iConf = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.0.0.1" '메일서버 지정
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '포트
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webmaster@ngio.co.kr"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12345"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Update
End With

With iMsg
Set .Configuration = iConf
.To = "김홍완"
.From = "엔지오"
.Subject = "메입입니다."
.HTMLBody = "메일내용메일내용메일내용메일내용메일내용메일내용"

'.fields.update
.Send
End With

Set iConf = nothing
Set iMsg = nothing
Set Flds = Nothing

Response.write "발송 완료!!!!"

CloseDB()
% >
크리에이티브 커먼즈 라이센스
Creative Commons License
이올린에 북마크하기

Posted by 홍반장

2007/12/28 16:19 2007/12/28 16:19
Response
No Trackback , No Comment
RSS :
http://tcbs17.cafe24.com/tc/rss/response/2880

코카콜라의 위 점유율

80년대 초 코카콜라는 미국 음료 시장의 35%를 차지하고 있었다.
코카콜라 직원들은 콜라 시장은 이미 성숙한 시장이기 때문에
더 이상 성장할 수 없다는 사고방식을 가지고 있었다.
그래서 단 0.1%의 시장 점유율을 위해 출혈을 감수하곤 했다.
고이주에타 회장은 이러한 마음가짐을 바꾸어야 한다고 생각했다.

그는 고위 임원회의에서 전 세계적으로
한 사람이 마시는 액체가 평균 얼마나 되냐고 물었다,
대답은 64온스였다.
다시 한사람이 하루에 마시는 코카콜라가 평균 얼마나 되냐고 물었다.
대답은 2온스였다.
끝으로 그는 코카콜라의 위 점유율(Share of stomach)이
얼마나 되냐고 물었다.

미국 콜라 시장 혹은 세계 음료시장에서 코카콜라의 점유율이 아닌,
전 세계 모든 사람이 하루에 마시는 액체 중
코카콜라가 차지하는 비율은 아주 미미했다.

코카콜라 직원들은 자신들의 적이 펩시라는 고정관념을 가지고 있었다.
그래서 펩시와의 싸움에서 승리하기 위해
전혀 도움이 되지 않는 싸움에 돈과 노력을 낭비하고 있었다.
하지만 이제 이들의 적은 커피, 우유, 그리고 물이었다.
이것이 코카콜라를 최고의 시장가치를 지닌 회사로 변화시킨 계기가 되었다.

- 코카콜라 CEO, 로베르토 고이주에타(Roberto Goizueta)

//---
내가 이겨야할건 일단 나 자신을 이기는 것이 먼저이다.

자기 자신을 이겨야지 그 다음 상대가 보일것이다.

항상 목표를 가져라.

그리고, 쟁취하라~
크리에이티브 커먼즈 라이센스
Creative Commons License
이올린에 북마크하기

Posted by 홍반장

2007/12/28 08:12 2007/12/28 08:12
Response
No Trackback , a comment
RSS :
http://tcbs17.cafe24.com/tc/rss/response/2879

사람은 언젠가는 떠난다

사람은 언젠가는 떠난다.
그러니 당장 사람을 붙드는 것보다는
사랑이라는 감정을 훼손시키지 않고 보전하는 것이 더 낫다.
그것은 내가 끊임없이 사랑을 원하게 되는 비결이기도 하다.
사람은 떠나보내더라도 사랑은 간직해야 한다.
그래야 다음 사랑을 할 수가 있다.
사랑에 환멸을 느껴버린다면 큰일이다.
삶이라는 상처를 덮어갈 소독된 거즈를
송두리째 잃어버리는 꼴이다.


- 은희경의《마지막 춤은 나와 함께》중에서 -


* 만남이 있으면
헤어짐이 있습니다.
떠날 때는 잘 떠나야 합니다.
떠나는 사람이든 보내는 사람이든 아쉬움도 있고
미련도 남습니다. '나쁜 기억'은 날려버리고 '좋은 기억'만을
간직한 채, 서로 잘 되기를 비는 마음으로 잘 떠나고
잘 보내야 합니다. 이별이 깨끗하고 아름다워야
그 이후의 삶도 더 새롭고 아름다워집니다.
크리에이티브 커먼즈 라이센스
Creative Commons License
이올린에 북마크하기

Posted by 홍반장

2007/12/28 08:11 2007/12/28 08:11
Response
No Trackback , No Comment
RSS :
http://tcbs17.cafe24.com/tc/rss/response/2878

2007년 마지막 오리발 강습

2007년 마지막 오리발 강습이었다.

위밍업을 50m 15바퀴로 시작해서, 접영 러쉬.

이번주는 수영 강습을 열심히 했군 ㅋㅋㅋ
크리에이티브 커먼즈 라이센스
Creative Commons License
이올린에 북마크하기

Posted by 홍반장

2007/12/28 07:57 2007/12/28 07:57
Response
No Trackback , No Comment
RSS :
http://tcbs17.cafe24.com/tc/rss/response/2877


블로그 이미지

- 홍반장

Archives

Recent Trackbacks

Calendar

«   2007/12   »
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31          
Statistics Graph

Site Stats

Total hits:
251394
Today:
122
Yesterday:
1251