LOVAPI

== windows: dhcp 에서 외부 ISP의 smtp를 이용하여 메일발송 하기 ==

1. php.ini에서 smtp세팅을 수정한다.

[mail function]
; For Win32 only.
SMTP =mail.kornet.net

; For Win32 only.
sendmail_from =id@mydomain.com

2. 관리도구->인터넷 정보 서비스->기본 SMTP 가상 서비스
엑세스탭, 연결제어(연결(N)): 아래목록만에 사용할 smtp서버 등록 (mail.kornet.net)

엑세스탭, 릴레이제한(릴레이(E)): 아래목록만에 사용할 smtp서버 등록 (mail.kornet.net)

3. 아파치, smtp 가상서비스 재시작

4. 테스트
#================================================================
<?        
mail("foolbabo@netian.com", "후후후클클클", "이혀순입니다.php + winNT + console로 보내고 있3",
     "From: 이혀순(webmaster@windows.or.kr)\nReply-To: foolbabo@netian.com\nContent-Type:text/html;charset=EUC-KR\nX-Mailer: PHP/".phpversion());
                
?>
#================================================================

2000에선 잘되던 소스가 XP에선 CDO.Message.1 (0x80040220) "SendUsing" 구성 값이 잘못되었습니다. 라는 에러메세지로 고생하시는 분들이 있어서 제가 그 방법을 알려 드릴께요... XP에서 사용하는 CDO는 버전이 업그레이드 되면서 SendUsing을 정확히 지정해 주지 않으면 메일을 송신하 지 않습니다... 이건 Windows User's Group에서 올라온 내용입니다. "익스체인지 2000은 각각의 메일 서버와 커넥션을 유지하면서 메일 큐를 소모하는 방법을 쓰고 있기 때문에 커넥션 오버헤드가 다른 메일 서버에 비해 훨씬 작다. 그러나, 익스체인지 서비스팩의 버전이 올라가면서 몇 가지 변동 사항이 생겼다. 익스체인지 CDO는 Sendusing을 정확히 지정해 주지 않으면 메일을 송신하지 않는다. 또한 Sendusing 역시 인수가 달라졌다." 따라서 그 속성을 지정해 주고 메일을 발송을 하면 아주 잘 됩니다... 아래 소스를 보시고 참고하시기 바랍니다... <% Dim iMsg Dim iConf Dim Flds Const cdoSendUsingPort = 1        '1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송 Const strSmartHost = "MySmartHostServer"        'Host 설정 'Pickup 디렉토리 설정(익스체인지서버가 설치된 경우는 익스체인지 픽업 디렉토리 지정) Const strRoot = "C:\Inetpub\mailroot\Pickup" 'CDO 메시지 개체 생성 Set iMsg = CreateObject("CDO.Message") 'SendUsing 속성을 지정하기 위한 개체 생성 Set iConf = iMsg.Configuration With iConf.Fields    .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strRoot    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30    .Update End With '메일발송 With iMsg    .To =    .From =    .Subject =    .TextBody =   '.HTMLBody =    .Send End With      Set Flds = Nothing Set iConf = Nothing Set iMsg = Nothing Response.write "메일을 발송하셨습니다." %>