04 2021 档案

SavetheattachmentNew
摘要：Public Sub SavetheattachmentNew(Item As Outlook.MailItem) Dim olApp As New Outlook.Application Dim nmsName As Outlook.NameSpace Dim vItem As Object Se 阅读全文
posted @ 2021-04-01 15:57 kinyu 阅读(89) 评论(0) 推荐(0)
Sub connSQL()
摘要：Sub connSQL() Dim t'获取系统当前时间t = Year(Now) & "." & Month(Now) & "." & Day(Now) & "-" & Hour(Now) & "." & Minute(Now) & "." & Second(Now)Dim fileName, s 阅读全文
posted @ 2021-04-01 15:46 kinyu 阅读(63) 评论(0) 推荐(0)
js调用webservice 摘录
摘要：function ImportDataFun(){ var Trans_Index=document.getElementById("Trans_Index").value; var PN=document.getElementById("PN").value; var ZH_Lot=documen 阅读全文
posted @ 2021-04-01 15:43 kinyu 阅读(95) 评论(0) 推荐(0)