Question

在以下编码的帮助下，我能够从Outlook收件箱中检索数据并在excel中更新相同内容。问题是我无法以宏读取先到先得更新的方式更新最新响应。如果我昨天收到来自abc的回复并且今天更新了abc的回复，宏正在更新昨天的回复。我们如何更改代码，以便宏应该从文件夹底部读取电子邮件，并且更新所提取的数据。

简而言之，我想更新记录中的最新回复。

def read_json(filename):
    return json.loads(open(filename).read())
def write_csv(data,filename):
    with open(filename, 'w+') as outf:
        writer = csv.DictWriter(outf, data[0].keys())
        writer.writeheader()
        for row in data:
            writer.writerow(row)
# implement
write_csv(read_json('test.json'), 'output.csv')

Answer 1

向后循环：

    For i = oInbox.Count To 1 Step -1
        If TypeName(oInbox.item(i)) = "MailItem" Then
            Set oMail = oInbox.item(i)
            'Do stuff here
            Set oMail = Nothing
        End If
    Next i

Excel vba代码从底部从收件箱中读取Outlook电子邮件

1 个答案: