如何返回参数中传递的对象的属性?

哈特曼

我正在尝试阅读电子邮件主题并将其存储为变量。

出于测试目的,我将其设置为文本文件的文件名。

我的代码返回一个空字符串。

  1. 我将电子邮件发送到其中包含以下代码的电子邮件地址 ThisOutlookSession
  2. 电子邮件主题为 Topic (923832)
  3. 代码执行无错误
  4. 文本文件名为空

为什么str = oMail.Subject什么都看不懂?

这是我的代码:(On Error Resume Next现已删除。)

Option Explicit

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.Session
  ' instantiate objects declared WithEvents
  Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
  Set objNS = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)

    'On Error Resume Next

    Dim oMail As Outlook.MailItem
    Dim str As String
    Dim openPos As Integer
    Dim closePos As Integer
    Dim midBit As String
    Dim strFolderPath

    Dim fso As Object
    Dim oFile As Object
    Set oFile = fso.CreateTextFile(strFolderPath & midBit & ".txt")
    Set fso = CreateObject("Scripting.FileSystemObject")

    strFolderPath = "C:\temp\Attachments\"
    str = oMail.Subject

    openPos = InStr(str, "(")
    closePos = InStr(str, ")")

    If oMail.SenderEmailAddress = "[email protected]" Then

        If Item.Attachments.Count > 0 Then

            midBit = Mid(str, openPos + 1, closePos - openPos - 1)

            oFile.WriteLine midBit
            oFile.Close

        End If

    End If

    Set fso = Nothing
    Set oFile = Nothing

End Sub
0立方米

使用ByVal Item As ObjectoMail As Outlook.MailItem

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)

    If TypeOf Item Is Outlook.MailItem Then

        Debug.Print Item.Subject

    End If


End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

如何在Mockito中基于参数属性返回不同的值?

如何将对象属性作为参数传递?(JavaScript)

返回的对象属性如何在JavaScript中工作?

如何在JavaScript中传递多个参数来设置对象属性的属性?

如何在函数对象文字中传递参数

如何从传递了参数的回调中返回值

在python中,如何基于作为参数传递的另一个对象的属性来更新属性?

如何访问异步等待返回对象中的属性

如何在属性中传递json对象数组?

如何返回JSON对象属性

如何将对象列表作为函数中的参数传递,然后使用对象的属性C#

如何通过vue-router参数中的id查找对象,然后将其属性传递给vue中的模板

如何将多个对象属性作为参数传递?

如何将对象的属性作为参数传递给函数

如何使用javascript访问在函数中传递的对象参数?

如何将对象属性作为函数参数传递?

从传递的类参数返回对象

如何从原始对象中“隔离”传递给EmberJS组件的属性

如何返回对象属性的名称?

如何传递对象属性作为参数?

如何传递参数以解析 GraphQL 对象中的函数?

如何将请求参数从 URL 传递到在 JavaScript 中返回同名对象的函数?

在 Python 中动态传递对象属性作为方法的参数

在返回数组中传递参数

如何在 Pytest 参数化功能中调用对象的属性

如何将参数中的属性传递给函数

如何根据提供的参数键入返回对象属性的函数?

如何从函数参数中获取对象属性值作为类型

如何在编译后的代码对象中传递参数?