9
21
120
44,264
  현재접속자 : 2 (회원 0)

 
작성일 : 14-08-03 16:02
메일발송 vba
 글쓴이 : 최고관리자 (10.♡.10.28)
조회 : 1,438  
   AspEmail.dll (128.0K) [3] DATE : 2014-08-03 16:02:58

Sub 메일발송()

    Dim Mail As MailSender '등록한 aspemail.dll 파일의 클래스를 변수로 선언합니다.
   
    Set Mail = New MailSender '선언한 변수의 인스턴스를 생성합니다.
   
    Mail.Charset = "UTF - 8"
    'Mail.Charset = "euc-kr"
    Mail.Host = "smtp.naver.com" '님이 사용할 SMTP서버의 아이피나 서버명을 넣으시면 됩니다.
    Mail.UserName = "아이디"
    Mail.Password = "비밀번호"


    Mail.Port = 25 '사용할 포트입니다. 보통 디폴트로 25를 사용합니다.
   
    Mail.From = "kth66@chol.com" '보낼사람의 메일주소입니다.
    Mail.FromName = "스피드통신" ' 보낼사람의 이름입니다.
   
    RecevePer = "woo@segiit.com"
    Mail.AddAddress RecevePer '받을 사람의 이메일 주소입니다.
    'Mail.AddCC "test1@test.com" '추가로 받을 사람을 지정할 수 있습니다.
   
    eSubject = "제목연습입니다."
    Mail.Subject = eSubject '메일의 주제란에 들어갈 내용을 넣는 곳입니다.
    'Mail.Charset = "UTF-8"
    'Mail.Charset = "euc-kr"
    MailContent = "본문연습입니다."
    Mail.Body = MailContent '메일의 본문에 들어갈 내용을 넣는 곳입니다.
   
    WPath = ThisWorkbook.Path & "\"
    Mail.AddAttachment WPath & "66.xls" '파일을 첨부하실 수 있습니다.
   
    On Error Resume Next
   
    Mail.Send
   
    If Err <> 0 Then
        MsgBox "메일을 전송하는데 에러가 발생하였습니다." & vbCrLf & Err.Description
    End If

End Sub


 
   
 


Copyright ⓒ your-domain. All rights reserved.