vb의 jmail4.0 제어

/BreadWeb/FtpFolder/Bread/w3JMail43Personal.exe를 다운로드하여 VB 디렉터리에 설치하세요!

Jmail 설치 디렉터리에서 Jmail.dll을 찾아 경로를 복사하세요. , 내 파일은 c:\Jmail.dll에 설치됩니다(c 드라이브에 복사할 수도 있습니다)

그런 다음 시작 메뉴에서 명령을 실행합니다.

Jmail 등록: Regsvr32 c: \Jmail .dll

등록 후 VB 프로젝트에서 Jmail을 참조하세요(찾을 수 있을 것입니다)

그런 다음 코드를 작성하고 올바른 이메일 계정 비밀번호도 바꿔야 합니다.

이메일 코드 보내기:

Option Explicit

Sub SendMail(Optional ByVal sSubject As String, _

Optional ByVal sBody As String, _

선택적 ByVal sFileName As String)

Dim jmail

jmail = CreateObject("jmail.Message")

jmail 설정. Charset = "gb2312 "

jmail.Silent = False

jmail.Priority = 1 '메일 상태, 1-5, 1이 가장 높습니다

jmail. MailServerUserName = "fitgore" ' 이메일 계정

jmail.MailServerPassWord = "123456" '이메일 비밀번호

jmail.FromName = "Mail" '보낸 사람 이름

jmail .From = "fitgore @163.com" '보내는 이메일 주소

jmail.Subject = "QQ가 편지를 받았습니다" '제목

jmail.AddRecipient "fitgore@163.com" '받는 사람 주소

jmail.Body = sBody '편지 텍스트

jmail.Send ("smtp.qq.com")

jmail 설정 = 없음

End Sub

Private Sub Command1_Click()

SendMail text1.text, text2.text, ""

MsgBox "OK"

End Sub

jmail은 qq 메일함을 지원하지 않습니다. sohu로 변경할 수 있습니다. sohu는 테스트할 수 있습니다