메일 전송 Dim iMsg Dim iConf Dim Flds Const cdoSendUsingPort = 2 '-> 1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송 Const strSmartHost = "smtp.gmail.com" '보낼 메일 Host Server 설정 Set iMsg = CreateObject("CDO.Message") '-> CDO.Message 객채를 생성 Set iConf = iMsg.Configuration '-> Configuration 설정값을 저장할 iConf 객채 생성 With iConf.Fields .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort '-> 서버 .. 더보기 이전 1 2 3 4 ··· 100 다음