電子メールを送信するVisual Basicスクリプト

次のスクリプトは、電子メールを送信する方法を示します:

'************************************************************************************

'REVIEW INPUT PARAMETERS

'************************************************************************************

If WScript.Arguments.Count <> 5  Then

			Wscript.Echo "You must supply 5 runtime variables." & vbNewLine & "Usage: HFM_LOAD.vbs LoadID CSS_Token OracleInstancePath JavaHomePath OLE_DB_PROVIDER"

			WSCript.Quit -1

Else

			LoadID = Wscript.Arguments.Item(0)

			CSSToken = WScript.Arguments.Item(1)

			OracleInstancePath = WScript.Arguments.Item(2)

			JavaHomePath = WScript.Arguments.Item(3)

			Provider = WScript.Arguments.Item(4)

	End If

'************************************************************************************

'************************************************************************************

'Initialize FDMEE VB API

'************************************************************************************

Set objFDMAPI = CreateObject("fdmapi.clsAppServerDM")

WScript.Echo "FDMEE VB API created."

blnInit = objFDMAPI.fInitializeMainAPI(CStr(LoadID), CStr(CSSToken), CStr(OracleInstancePath), CStr(JavaHomePath), CStr(Provider))

If blnInit Then 

			WScript.Echo "FDMEE VB API initialized."

Else

			WScript.Quit -1

			WScript.Echo "fInitializeMainAPI failed."

End If

'************************************************************************************

WScript.Echo CBool(True)

'************************************************************************************

'Sample Code

'************************************************************************************

If objFDMAPI.API.POVMgr.PPOVLocation = "LOCATION_NAME" Then

			'Check Status of LoadID

			Set objProcessStatus = objFDMAPI.API.MaintenanceMgr.fProcessStatus(objFDMAPI.API.State.GstrPOVLoc, objFDMAPI.API.State.GstrPOVCat, objFDMAPI.API.State.GstrPOVPer)

			If objProcessStatus.blnImp Then

						'Import was successful

						'Send an email

						SendEmail("[e-mail]", "[e-mail]", "Subject", "Import was successful"

			End If

End If

'************************************************************************************

'************************************************************************************

'Destroy objects

'************************************************************************************

objFDMAPI.Dispose

Set objFDMAPI = Nothing

'************************************************************************************

Sub SendEmail(strFromAddress, strToAddress, strSubject,strEmailMsgLine)

     'Declare local variables

     Dim strFromAddress

     Dim strToAddress

     Dim strSubject

     Dim strEmailMsgLine

     Dim objMsg

     Dim objConfig

     Dim intSendUsing

     Dim strSMTPServer

     Dim intSendPort

     'Initialize Mail Server variables

     'SMTP server name

     strSMTPServer = "YourMailServer"

     'CdoSendUsing enumeration-1=use smtp on local machine, 2=use smtp over network

     intSendUsing = 2

     'SMTP port on server

     intSMTPPort = 25

     'Create CDO configuration object

     Set objConfig = CreateObject("CDO.Configuration")	 

     'Set Config object settings

     With objConfig.Fields

          .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = intSendUsing

          .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer

          .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= intSMTPPort
	

     .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

          .Update

     End With

     'Create CDO message object

     Set objMsg = CreateObject("CDO.Message")	

     'Assign config object to configuration property of message object

     Set objMsg.Configuration = objConfig

     'Set Message object settings and send mail

     With objMsg

           .To = strToAddress

           .From = strFromAddress

           .Subject = strSubject

           .TextBody = strEmailMsgLine

           .Send

     End With

     'Destroy message objects

     Set objMsg = Nothing

     Set objConfig = Nothing

End Sub