[VBS] 이메일 보내기
5183 단어 vbs
1 Sub SendMail(pMailFrom, pMailTo, pSubject, pMailBody, pMailSmtpServer)
2 On Error Resume Next
3 Dim objShell
4 Dim oMsg
5
6 Set objShell = CreateObject("Wscript.Shell")
7 Set oMsg = CreateObject("CDO.Message")
8
9 oMsg.From = pMailFrom & " <" & pMailFrom & ">" '
10 oMsg.To = pMailTo & " <" & pMailTo & ">" '
11 oMsg.Subject = pSubject '
12 oMsg.HtmlBody = pMailBody ' (HTML )
13 'oMsg.TextBody = pMailBody ' ( )
14
15 oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
16 oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = pMailSmtpServer 'ExChange
17 oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
18 oMsg.Configuration.Fields.Update
19
20 oMsg.Send
21 If Err.Number <> 0 Then
22 AddLog (" :" & Err.Description)
23 WScript.Quit -1
24 End If
25
26 Set oMsg = Nothing
27 Set objShell = Nothing
28 End Sub
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[VBS] 이메일 보내기텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.