3

ここにある私のコードのどこが気に入らないのかわかりません。.NET の経験はありますが、VBA は初めてです。関数が呼び出されたときに myFunction('args') を実行せず、代わりに myFunction args を実行することはわかっていますが、ここではその問題はありません。どんな助けでも大歓迎です。ありがとう！

Public Sub LogMeIn()
Dim item As Outlook.MailItem
Dim body As String
Dim subject As String
Dim oFld As Outlook.Folder
Dim oNS As Outlook.NameSpace
Dim oMails As Outlook.items
Dim oProp As Outlook.PropertyPage
Dim mySelection As Word.Selection
Dim strItem As String
Dim omailitem As Variant

Set oNS = Application.GetNamespace("MAPI")
Set oFld = oNS.GetDefaultFolder(olFolderInbox)
Set oMails = oFld.items

For Each omailitem In oMails
Set body = omailitem.body
Set subject = omailitem.subject
Dim pos As Integer
Set pos = 0
Dim copyText As String
If InStr(omailitem.subject, "Your LogMeIn Security Code:") > 0 Then
Set copystr = Mid(omailitem.body, pos + 28, 9)
Dim dataToSave As New DataObject
dataToSave.SetText copystr
dataToSave.putinclipboard

'MsgBox ("subject true")
End If

'MsgBox ("subject true")
'If omailitem.subject.Find("Your LogMeIn Security Code:") Then
'MsgBox ("subject true")
'End If

Next

End Sub

Private Sub Application_NewMail()
Call LogMeIn
End Sub
4

1 に答える 1

5

オブジェクト参照をdata typeに代入しようとしました。Stringは VBA のデータ型であり、オブジェクトではありません。キーワードSetは object で使用されます。データ型の場合は、このキーワードを削除してください。そうしないと、エラーが発生します。

Dim body As String
Dim subject As String

Set body = omailitem.body
Set subject = omailitem.subject

Dim pos As Integer
Set pos = 0

[...]
于 2013-05-07T13:11:07.997 に答える