|
|
|
|
¹®Èñö / 2001-03-22 / ¿ÀÀü 11:41:39 / 61.75.51.208
Á¶È¸¼ö : 133
|
[Áú¹®] smtp¸¦ ÀÌ¿ëÇÑ ¸á º¸³»±â Áß Áú¹® |
ÇöÀç Á¦°¡ ¾ÆÇØ´ÔÀÇ ·ÎÁ÷À» »ç¿ëÇÏ¿© ³ª¸§µ¥·Î °øºÎ¸¦ ÇÏ°í ÀÖ½À´Ï´Ù.
´Ù¸§ÀÌ ¾Æ´Ï¶ó smtp¸¦ ÀÌ¿ëÇؼ °Ô½ÃµÈ ±ÛÀÌ ÀÖ´Ù´Â ³»¿ëÀ» ¸á·ç º¸³¾¶§ Á» ´õ ¾Æ·¡ÀÇ °Íº¸´Ù º¸°µÈ Àú¸¸ÀÇ °ø°£À» ¸¶·ÃÇÏ°í ½Í°Åµç¿ä.»çÀÌÆ® È«º¸ÀûÀÎ¸é ¿¡¼µµ ´Ü¼øÈ÷ Áö±Ýó·³ ÇÑ´Ù¸é ¾Ë¾Æº¸±â°¡ ¾î·Á¿ï°Í °°¾Æ¼¿ä...ºÎŹµå¸³´Ï´Ù.
Set iMsg = Server.CreateObject("CDO.Message")
With iMsg
.To = tomail
.From = "newmessage@chollian.net"
.Subject = subject
mailcontent = "ÀÛ¼ºÀÚ : "&writer&vbCR&vbCR&"ÀÛ¼ºÀÚ ¸ÞÀÏ : " &email&vbCR&vbCR&"ÀÛ¼ºÀÚ IP : " &ip&vbCR&vbCR
mailcontent = mailcontent&"======================>> °Ô½Ã¹° ³»¿ëÀÔ´Ï´Ù"&vbCR&vbCR&content&vbCR&vbCR
mailcontent = maincontent&" ÷ºÎÆÄÀÏ : "&mailfile
mailcontent = mailcontent&"°Ô½ÃµÈ ³»¿ëÀÌ ¿Ã¶ó¿Í ÀÖ½À´Ï´Ù.[*^_^*]"
.TextBody = mailcontent
.Send
End With
set iMsg = nothing
'//////////// Win2000 ¼¹ö Á¾·á ///////////
end if
'//////////// ¸ÞÀÏ ¹ß¼Û ·çƾ ³¡ //////////////////////
DbCon.Close
Set DbCon=nothing
=========================>.TextBody = mailcontent(ÀÌ ºÎºÐ¿¡¼ »ó¼¼ ³»¿ëÀ» ÀÔ·ÂÇØ¾ß Çϴ°ÍÀÎÁö,¶ÇÇÑ response.write¶ó´Â ½ÄÀ¸·Î htmlÀ» ¸¸µé¾î¾ß ÇÏ´ÂÁö ¾Ë°í ½Í½À´Ï´Ù.¾Æ´Ô ´Ù¸¥ ¹æ½ÄÀ¸·Î ÀÛ¼ºµÇ¾î¾ß ÇÏ´ÂÁöµµ¿ä...)
ÇöÀç´Â ´ÙÀ½°ú °°ÀÌ ¿À°í Àְŵç¿ä.¼Ò½º¿¡ °ÅÀÇ ¼ÕÀ» ´ëÁö ¸øÇؼ¸®,
÷ºÎÆÄÀÏ : ¢Æ SiteGalaxy.zip(1084Kbytes) °Ô½ÃµÈ ³»¿ëÀÌ ¿Ã¶ó¿Í
ÀÖ½À´Ï´Ù.[*^_^*]
ÀÌ·± ½ÄÀ¸·Î ¸áÀÌ º¸³»Áý´Ï´Ù.ÀÌ°ÍÀ» Á»´õ µðÀÚÀÎÀ» º¸°ÇÏ¿© ¶ÇÇÑ »çÀÌÆ®ÀÇ ¹è³Ê¶óµçÁö,±×·±°ÍÀ» »ðÀÔÇÏ°í ½Í°Åµç¿ä
²À Á» ¾ËÄÑÁÖ¼¼¿ä.
|
|
|
|