VB를 사용하여 Text1과 Text2의 내용을 wwwwwwwwww5555555555@163.com으로 보내는 방법

inet 컨트롤에 전화

또는

Jmail을 사용할 수 있습니다

Jmail.dll 파일이 필요하면 이메일 주소를 알려주세요. 보내드리겠습니다.

먼저 구성요소를 등록해야 합니다. Jmail.dll이 c:\jmail.dll에 있으면

, regsvr32 /s c:\jmail을 입력하세요. .dll

직접 실행할 수도 있습니다. VB를 사용하여 코드를 등록하세요.

shell "regsvr32 /s c:\jmail.dll"

그런 다음 코드:

Sub SendMail( Optional ByVal sSubject As String, _

Optional ByVal sBody As String, _

Optional ByVal sFileName As 문자열)

Dim jmail

jmail = CreateObject("jmail.Message") 설정

jmail.Charset = "gb2312"

jmail.Silent = False

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

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

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

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

jmail.From = "12345@126.com" '보내는 중 이메일 주소

jmail.Subject = Text1.text 'Text1 제목 만들기

jmail.AddRecipient "zzzzz@vvvvv.com" '수신자 주소

jmail.Body = text2.text 'text2는 콘텐츠를 만듭니다.

jmail.Send ("smtp.126.com") 'smtp.sohu.com과 같은 SMTP 서버

jmail = Nothing

End Sub

Private Sub Command1_Click ()

SendMail

MsgBox "메일이 성공적으로 전송되었습니다"

End Sub