冰峰雪晴

在AS/400的PCOM屏幕上用宏代码发送邮件[vbs]

时间：2016-09-28 ┊ 阅读：8,152 次 ┊ 标签: 开发 , 编程 , 分享

最近一直研究怎么在as400上屏幕宏操作中，自动做一些业务并根据不同情况把结果报表发邮件到指定客户邮箱，以前一直在as400里面做，现在因为是手动业务需要，简单说来就是一些天天重复性的工作，又想自动做又想做的和真人做的一样，这就马上又要运用vbs宏命令了。
以前写了好多，自动做batch作业的结果检查并生成txt的报表，解放了我的双手，中需要启用脚本自己去忙活其他工作好，脚本到时间会自动做check并按非常规范的格式生成报表。等忙活完觉得完事了来瞅一眼报表是否ok就好了，哈哈，听起来是不是很美丽，我一直这样做哦，平时把很多重复性工作尽量的写成程序来做，解放双手，把有限的时间尽可能的拉的很长。
今天有点无聊，多啰嗦了几句。

脚本中含有大量发业务，就全删除去了，中间的业务敏感信息也能代替为xxx等。代码是正常可用的。其中引用的FormatDateTime可以参考格式化输出日期时间新版本[VBS]。收工。

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=Auto Check xxx
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
'Script Name: Auto Check xxx
'Author Name: Kevin
'Create Date: 2016/09/20
'Version Control
'-----------------------------------------------------
'Revise Date  Version  Description
'2016/09/20   v1.0     Auto Check
'-----------------------------------------------------

REM This line calls the macro subroutine Main
Main

Sub Main()
    SendMail True, strMailData
End Sub

'Send email to someone
Sub SendMail(boolSend, strMailData)
    Dim OLA, mailItem, arrMailData, i
    Set OLA = CreateObject("Outlook.Application")
    Set mailItem = OLA.CreateItem(0)
    mailItem.SubJect = "xxx on " + FormatDateTime(Now,5) + " - xxx"
    'cat mail data
    If boolSend Then
        mailItem.Body = strMailData
    Else
        arrMailData = Split(strMailData, "~")
        mailItem.Body = "Hi all"
        mailItem.Body = mailItem.Body + " "
        For i = 0 To UBound(arrMailData)
            mailItem.Body = mailItem.Body + arrMailData(i)
        Next
    End If
    '添加上签名信息
    '这儿有个细节，研究半天。之前在拼接这个邮件内容时，总想着自己换行，用过chr(10)和chr(13)来换行，也试了vbcrlf或vbcr或vblf等正常的vb换行符都可以用，但就是换行时出现行高很高的情况，格式很难看。但mailitem提供的html的format在pcom的宏命令上又不好用，可能不支持。最后无意中发现，每次按如下方式拼接一次邮件主体，就会自动换行，不加格式，行高保持一致，想隔行时，一定要拼接一个空格字符串后会以同样的行高来换一行。格式相当的符合我的需要啦，美丽啊。
    mailItem.Body = mailItem.Body + " "
    mailItem.Body = mailItem.Body + " "
    mailItem.Body = mailItem.Body + "Should you have any queries, please feel free to contact me."
    mailItem.Body = mailItem.Body + " "
    mailItem.Body = mailItem.Body + "Thanks & Regards!"
    mailItem.Body = mailItem.Body + "Kevin"
    '添加附件
    mailItem.Attachments.Add("test.txt")
    '收件人
    mailItem.To = "kevin@xxx1.com"
    '抄送给谁
    mailItem.CC = "kevin@xxx2.com"
    If boolSend Then
        '直接发送
        mailItem.Send
        'mailItem.Save
    Else
        '保存到草稿箱，这样可以再稍编辑一下修改下就可以自己发了。
        mailItem.Save
    End If
    Set mailItem = Nothing
    Set OLA = Nothing
End Sub

本文固定链接: https://www.amkevin.com/193.html｜冰峰雪晴｜转载请注明出处,谢谢