윈도우 2000에서 CDONTS.NewMail을 이용해 메일을 보내던 기능이 윈도우 2003으로 버전업 하고나서 오류를 발생하고는 작동하지 않는다.

윈도우 2003은 CDONTS.NewMail대신 CDO.Message를 이용해서 메일 발송이 가능하다.
CDO.Message를 이용해 메일을 발송하려면 일단 SMTP서비스를 설치해서 기동되어 있어야 한다.
그후 코딩은 아래를 참고하면 된다.

Const cdoSendUsingPort = 2 '1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송
Const strSmartHost = "xxx.xxx.xxx.xxx" '보낼 메일 Host Server 설정

Set objMail = Server.CreateObject("CDO.Message") '메일 객체생성 
Set objConf = objMail.Configuration 'Configuration 설정값을 저장할 objConf 객채 생성

With objConf.Fields
   .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort ' 서버 접근방법을 설정합니다
   .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost ' 서버 주소를 설정합니다
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  ' 접근할 포트번호를 설정합니다
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' 접속시도할 제한시간을 설정합니다
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  ' SMTP 접속 인증방법을 설정합니다
   .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "아이디" ' SMTP 서버에 인증할 ID를 입력합니다
   .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "암호"  ' SMTP 서버에 인증할 암호를 입력합니다
   .Update
End With

  objMail.from = 메일주소  '보내는이 메일
  objMail.To = 메일주소  '받는사람 Email

  objMail.subject = "제목 들어가는곳"

  objMail.HTMLBody = "HTML형식의 Body 들어가는곳. HTMLBody나 TextBody 둘중 하나를 선택"
  objMail.TextBody = "TEXT형식의 Body 들어가는곳. HTMLBody나 TextBody 둘중 하나를 선택"
혹은
  objMail.Body = "내용"
  objMail.BodyFormat = 0 ' CdoBodyFormatHTML(0)는 HTML, CdoBodyFormatText(1)는 Text
 

  objMail.BodyPart.Charset="ks_c_5601-1987"     ' 한글을 위해선 꼭 넣어 주어야 합니다.
  objMail.HTMLBodyPart.Charset="ks_c_5601-1987" ' 한글을 위해선 꼭 넣어 주어야 합니다.

  objMail.Importance = 2 ' 우선순위 CdoLow(0)은 낮게, CdoNomal(1)은 중간, CdoHigh(2)은 높게
  objMail.Attachfile "파일패스", "파일명", 엔코딩방식 ' 첨부파일 엔코딩방식 : CdoEncodingUUencode(0)은 Ascii파일, CdoEncodingBase64(1)은 Binary파일

  objMail.send  ' 메일을 보냅니다. 
 Set objConf = Nothing ' 설정값 객체를 닫습니다.
 Set objMail = Nothing ' 메일 객체를 닫습니다.

regsvr32.exe cdonts.dll

cdonts.dll

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

이올린에 북마크하기(0) 이올린에 추천하기(0)

문의하신 네이트온 설치 오류에 대해 답변드리겠습니다.

먼저, 보내주신 파일 잘 받아보았습니다.

대부분 윈도용 응용 프로그램은 installshield(인스톨쉴드)라는

설치 관리 프로그램을 사용하게 됩니다.

저희 네이트온도 마찬가지로 installshield(인스톨쉴드)라는 프로그램으로

설치가 진행되는데 현재 회원님께 나타난 증상은 윈도에 설치되어 있는

installshield(인스톨쉴드) 프로그램의 손상 등의 원인입니다.

이 문제를 해결하기 위해서는 installshield(인스톨쉴드)를 재설치해야 하며,

아래의 내용을 참고하셔서 재설치해 보시기 바랍니다.

네이트온이 실행되고 있다면 네이트온 상단 메뉴의 [파일] → [네이트온 종료]

메뉴를 이용하여 네이트온을 종료해 주시기 바랍니다.

1. 바탕화면의 [내 컴퓨터] 클릭

2. [C: 드라이브] → [Program Files] → [Common Files] 클릭

3. [InstallShield] → [Professional] → [RunTime] → [11]

4. 해당 [11] 폴더 삭제 → PC 재부팅

문제의 특성상 어떤 프로그램의 영향으로 오류가 발생하는지

정확히는 확인할 수 없으나, 그 원인이 installshield(인스톨쉴드)를 사용하는

다른 응용 프로그램의 설치 시에도 비슷한 증상이 발생할 수 있습니다.

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

이올린에 북마크하기(0) 이올린에 추천하기(0)

[2008-02-08 03:18:22] [174  javajni.c] [error] 지정된 모듈을 찾을 수 없습니다.

[2008-02-08 03:18:22] [986  prunsrv.c] [error] Failed creating java C:\Program Files\Java\jre1.6.0_04\bin\client\jvm.dll

[2008-02-08 03:18:22] [1260 prunsrv.c] [error] ServiceStart returned 1

msvcr71.dll

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

이올린에 북마크하기(0) 이올린에 추천하기(0)

Microsoft 사이트에서 무료로 ASP.NET 관련 서적을 무료로 배포하는군요.
책의 정가가 52,000원이나 하는 책인데 마침 ASP.NET을 공부할일이 있어서 유용하게 보고 있는중입니다.

Step by Step ASP.NET 예제.zip

출처 : 정보문화사 (http://www.infopub.co.kr/)

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

이올린에 북마크하기(0) 이올린에 추천하기(0)

프로그램이 항상 위에 표시되도록 하는 기능과 ALT+TAB, ALT+F4 키등 시스템키를 사용하지 못하도록 제한하는 기능

### FORM 소스 ###

Option Explicit

'
'   항상 위
'
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_NOTOPMOST = -2   'Not Always top
Private Const HWND_TOPMOST = -1  'Always top
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

'
'   키 작동 정지
'
Dim hhkLowLevelKybd As Long

'
'   항상 위
'
Public Sub AlwaysOn(ByVal frmForm As Object, ByVal OnOff As Integer)
    Dim hWndMode As Integer
    hWndMode = Choose(OnOff + 1, -2, -1)
    SetWindowPos frmForm.hwnd, hWndMode, 0, 0, 10, 10, SWP_NOMOVE Or SWP_NOSIZE
End Sub

'
'   키 작동 정지
'
Public Sub KeyDisable(ByVal OnOff As Integer)
    If OnOff = 1 Then
        hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0)
    Else
        UnhookWindowsHookEx hhkLowLevelKybd
    End If
End Sub

'
'   공통
'

Private Sub Form_Load()
    Call AlwaysOn(Me, 1)    ' 항상 위   설정 "1"    해제 "0"
    Call KeyDisable(1)      ' 키 작동   정지 "1"    해제 "0"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call KeyDisable(0)      ' 키 작동   정지 "1"    해제 "0"
End Sub


### 시스템키 제한 모듈 소스 ###

'
'   키 작동 정지
'

Option Explicit

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Const HC_ACTION = 0
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105

Public Const WND_KEY = 91
Public Const WH_KEYBOARD_LL = 13
Public Const LLKHF_ALTDOWN = &H20

Public Const VK_TAB = &H9
Public Const VK_CONTROL = &H11
Public Const VK_ESCAPE = &H1B
Public Const VK_F4 = &H73

Public Type KBDLLHOOKSTRUCT
    vkCode As Long
    scanCode As Long
    flags As Long
    time As Long
    dwExtraInfo As Long
End Type

Dim p As KBDLLHOOKSTRUCT

Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Dim fEatKeystroke As Boolean
   Dim a As Integer
  
   If (nCode = HC_ACTION) Then
      If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
         CopyMemory p, ByVal lParam, Len(p)
         fEatKeystroke = _
            ((p.vkCode = VK_F4) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
            ((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
            ((p.vkCode = VK_ESCAPE) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
            ((p.vkCode = WND_KEY) And ((p.scanCode = WND_KEY) <> 0)) Or _
            ((p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0))
        End If
    End If
   
    If fEatKeystroke Then
        LowLevelKeyboardProc = -1
    Else
        LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
    End If
End Function

vb6_항상위알트탭제한.zip

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

이올린에 북마크하기(0) 이올린에 추천하기(0)

아래 상수는 실제값 대신 코드의 어느 부분에서도 사용할 수 있습니다.

A키에서 Z키는 ASCII의 A에서 Z와 동일합니다.

0키에서 9키는 ASCII의 0에서 9와 동일합니다.

다음의 상수들은 숫자키 모음의 키들을 나타냅니다.

다음의 상수들은 기능키를 나타냅니다.