将所有收件人的邮件地址复制到一个记事本中

Adams780719

各位老师好，我有以下代码，想实现将所有收件人的邮件地址复制到一个记事本中，同时，各个邮件地址之间用都好分隔。但运行后系统总提示说“文件已打开”，请各位老师帮忙看看。谢谢！

Dim myolapp As Outlook.Application
Set myolapp = Outlook.Application
Dim mynamespace As Outlook.NameSpace
Set mynamespace = myolapp.GetNamespace("MAPI")
Dim myolexp As Outlook.Explorer
Set myolexp = myolapp.Explorers.Item(1)
Dim myolsel As Outlook.Selection
Set myolsel = myolexp.Selection
Dim x As Integer
Dim y As MailItem
Dim f As String
Dim c As Recipients
Dim d As Recipient
Dim e As Integer

For x = 1 To myolsel.count
Set y = myolsel.Item(x)
    For e = 1 To y.Recipients.count
    f = y.Recipients(e).Address

Open "D:\fmo\Work\address1.txt" For Output As #1
Print #1, f
Next e
Next x

dsd999

Open "D:\address1.txt" For Output As #1

For x = 1 To myolsel.count
Set y = myolsel.Item(x)
    For e = 1 To y.Recipients.count
    f = y.Recipients(e).Address


Print #1, f
Next e
Next x