vba 에서 메일전송하기 문의

[yoskla]

엑셀 VBA에서

Sub CDO라이브러리를이용한메일발송(s이메일 As String, s제목 As String, s첨부파일 As String)
   
    Dim oCDOMail As Object
    Dim oCDOMailCfg As Object
    Dim oCDOMailCfgFields As Object
   
    Application.ScreenUpdating = False
       
        Set oCDOMail = CreateObject("CDO.Message")
        Set oCDOMailCfg = CreateObject("CDO.Configuration")
        Set oCDOMailCfgFields = oCDOMailCfg.Fields
       
        With oCDOMailCfgFields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
            ' G-Mail 의 경우 발송포트를 465 사용, 기본 포트는 25
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 15
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            ' G-Mail 의 경우 SSL 을 호출해야 정상적으로 메일이 발송됩니다.
            .Update
        End With
    
        With oCDOMail
            Set .Configuration = oCDOMailCfg
           
            .To = s이메일
            .from = "********"
            .Subject = s제목
            .TextBody = "수고하셨습니다."
            .AddAttachment s첨부파일
           
            .Send                      '여기에서 걸림.
       
        End With
    
    Application.ScreenUpdating = True
   
    Set oCDOMailCfgFields = Nothing
    Set oCDOMailCfg = Nothing
    Set oCDOMail = Nothing
   
End Sub

아니면

daum.net 이나 naver.com

에서 사용할수는 없는지요  있다면 한수 가르처 주세요.