Ich habe ein Makro erstellt, das auf meinem Computer funktioniert. Wenn ich es auf einen anderen Computer hochlade und ausführe, kann es keine E-Mails finden.VBA kann keine E-Mails in Outlook mit. Finden
Set olApp = GetObject(, "Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set olFldr = olNs.GetDefaultFolder(olFolderInbox)
Set olItms = olFldr.Items
Set olEmail = olApp.CreateItem(olMailItem)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
subj = "Test email"
Set olMi = olItms.Find("[Subject] = " & Chr(34) & subj & Chr(34))
If Not (olMi Is Nothing) Then
For Each olAtt In olMi.Attachments
Else
' ends up here everytime
Ich habe mir eine E-Mail „Test E-Mail“ genannt, und ich kann es in meinem Outlook-Posteingang, aber mein Makro sehe es nie finden (auf jedem Computer, den ich das Makro laden). Wenn ich jedoch das Programm auf dem ursprünglichen Computer ausführe, auf dem ich das Programm geschrieben habe, funktioniert es einwandfrei. Nicht wirklich sicher, was das Problem ist.
auf dem Code der Suche es es ist in Ordnung, erscheint. Ich würde testen, um sicherzustellen, dass der Betreff tatsächlich "Test-E-Mail" ist. Versuchen Sie, über jede E-Mail-Nachricht zu iterieren und die Betreffzeile auszudrucken, um sicher zu sein, dass es nicht so aussieht, als würde sie es finden. –
Was ist der Unterschied zwischen Computer? Wie hast du den Code von deinem Computer auf den anderen übertragen? – 0m3r
@ Om3r - Ich habe es gemailt. Ich habe es auch in eine Drop-Box gelegt, um über mehrere Computer darauf zugreifen zu können. Der einzige wirkliche Unterschied ist, dass ein Computer ein Dell ist und der andere ein HP. Die Betriebssysteme sind identisch und Microsoft Office 2013 ist auf beiden. – Ken