VBS转易语言

壮志豪情

dim ado, oMsg
Set ado = CreateObject("Adodb.Stream")
set oMsg = CreateObject("CDO.Message")


ado.Type = 1
ado.Mode = 3
ado.Open
ado.Loadfromfile="D:\1.txt"


oMsg.DataSource.OpenObject ado, "_stream"'主要是这段不理解怎么在易语言里怎么翻译？



wscript.echo  ado.Size
wscript.echo oMsg.Subject
wscript.echo oMsg.From






主要是这段不理解怎么在易语言里怎么翻译？oMsg.DataSource.OpenObject ado, "_stream"

壮志豪情

花开ヽ若相依

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
ado	对象			Adodb.Stream
oMsg	对象			CDO.Message
DataSource	对象			解析eml对象
Attachments	对象			附件对象
Count	整数型			附件数量
i	整数型
attach	对象			易语言不支持数组形式的对象，只能这样子了。。。
FileName	文本型

ado.创建 (“Adodb.Stream”, )
oMsg.创建 (“CDO.Message”, )
ado.写属性 (“Type”, 1)
ado.写属性 (“Mode”, 3)
ado.方法 (“Open”, )
ado.方法 (“Loadfromfile”, “D:\1.eml”)
调试输出 (ado.读数值属性 (“Size”, ))
DataSource ＝ oMsg.对象型方法 (“DataSource”, )
DataSource.方法 (“OpenObject”, ado, “_stream”)
调试输出 (oMsg.读文本属性 (“Subject”, ))
调试输出 (oMsg.读文本属性 (“From”, ))
Attachments ＝ oMsg.读对象型属性 (“Attachments”, )
Count ＝ Attachments.读数值属性 (“Count”, )
调试输出 (Count)
如果真 (Count ＞ 0)
计次循环首 (Count, i)
attach ＝ Attachments.读对象型属性 (“Item”, i)
FileName ＝ attach.读文本属性 (“FileName”, )
调试输出 (FileName)
attach.方法 (“SaveToFile”, “D:\eml\” ＋ FileName)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 ado, 对象, , , Adodb.Stream<br /> .局部变量 oMsg, 对象, , , CDO.Message<br /> .局部变量 DataSource, 对象, , , 解析eml对象<br /> .局部变量 Attachments, 对象, , , 附件对象<br /> .局部变量 Count, 整数型, , , 附件数量<br /> .局部变量 i, 整数型<br /> .局部变量 attach, 对象, , , 易语言不支持数组形式的对象，只能这样子了。。。<br /> .局部变量 FileName, 文本型<br /> <br /> <br /> ado.创建 (“Adodb.Stream”, )<br /> <br /> oMsg.创建 (“CDO.Message”, )<br /> <br /> ado.写属性 (“Type”, 1)<br /> <br /> ado.写属性 (“Mode”, 3)<br /> <br /> ado.方法 (“Open”, )<br /> <br /> ado.方法 (“Loadfromfile”, “D:\1.eml”)<br /> <br /> 调试输出 (ado.读数值属性 (“Size”, ))<br /> <br /> DataSource ＝ oMsg.对象型方法 (“DataSource”, )<br /> <br /> DataSource.方法 (“OpenObject”, ado, “_stream”)<br /> <br /> 调试输出 (oMsg.读文本属性 (“Subject”, ))<br /> <br /> 调试输出 (oMsg.读文本属性 (“From”, ))<br /> <br /> Attachments ＝ oMsg.读对象型属性 (“Attachments”, )<br /> <br /> Count ＝ Attachments.读数值属性 (“Count”, )<br /> <br /> 调试输出 (Count)<br /> <br /> .如果真 (Count ＞ 0)<br /> <br />     .计次循环首 (Count, i)<br /> <br />         attach ＝ Attachments.读对象型属性 (“Item”, i)<br /> <br />         FileName ＝ attach.读文本属性 (“FileName”, )<br /> <br />         调试输出 (FileName)<br /> <br />         attach.方法 (“SaveToFile”, “D:\eml\” ＋ FileName)<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> <br /> .如果真结束

这个是带有附件写出的

花开ヽ若相依

D:\1.txt  文件发一下

补充内容 (2023-2-24 02:12):
类似于一个数据格式  然后载入进去  比如Json处理之前的 json.解析一样。。你要发1.txt源文件出来才能给转成易语言的写法

壮志豪情

花开ヽ若相依 发表于 2023-2-24 02:09
D:\1.txt  文件发一下

补充内容 (2023-2-24 02:12):

附件是一个eml文件 现在附上 1.txt (176.08 KB, 下载次数: 4)

2023-2-24 02:17 上传

点击文件名下载附件

花开ヽ若相依

壮志豪情 发表于 2023-2-24 02:17
附件是一个eml文件 现在附上

你是只需要获取  wscript.echo  ado.Size
wscript.echo oMsg.Subject
wscript.echo oMsg.From
这三个 数据么

壮志豪情

花开ヽ若相依 发表于 2023-2-24 02:40
你是只需要获取  wscript.echo  ado.Size
wscript.echo oMsg.Subject
wscript.echo oMsg.From

我还要读取eml中的附件列表,但是我怕太麻烦您了，就没写出来


' 附件
wscript.echo oMsg.Attachments.Count
if oMsg.Attachments.Count > 0 Then
    Dim attach 'as CDO.BodyPart
    For Each attach In oMsg.Attachments
        wscript.echo attach.ContentMediaType '附件文件类型
        wscript.echo attach.FileName '附件文件名
        wscript.echo attach.GetDecodedContentStream.SaveToFile(attach.FileName, 2) '将附件二进制数据保存为源文件（1=不存在时新建/存在时报错(默认), 2=不存在时新建/存在时覆盖）
    Next
End if

花开ヽ若相依

壮志豪情 发表于 2023-2-24 02:45
我还要读取eml中的附件列表,但是我怕太麻烦您了，就没写出来

eml解析.e (1.03 MB, 下载次数: 2)

2023-2-24 03:00 上传

点击文件名下载附件




补充内容 (2023-2-24 03:00):
附件列表忘记写进去了   在JSON里面的 list[0].attachment 下面

补充内容 (2023-2-24 03:01):
因为易语言本身没有eml的库，之前也没遇到过能解析eml的模块，所以调用的是第三方的一个工具

花开ヽ若相依

附件 图片 文件 在 OutPutPathName ＝ 取运行目录 () ＋ “\” ＋ 时间_取现行时间戳 () ＋ “\”  这句代码定义的目录下的文件夹里面  文件夹是根据你eml文件的文件名来生成的

壮志豪情

花开ヽ若相依 发表于 2023-2-24 03:00
补充内容 (2023-2-24 03:00):
附件列表忘记写进去了   在JSON里面的 list[0].attachment 下面

这个不是用的EmlParse解析么，这个部分邮件解析有乱码，所以我想试试微软的接口，能帮我翻译下吗。

花开ヽ若相依

壮志豪情 发表于 2023-2-24 03:04
这个不是用的EmlParse解析么，这个部分邮件解析有乱码，所以我想试试微软的接口，能帮我翻译下吗。{:4_26 ...

奥~我明白了 你是想调用系统Api吧   稍等哈