怎么outlook自动保存收件人的地址？

23083300 · 发表于 2008-12-27 23:16

由于工作需要每天要发给不同的客户邮件。但是发一个保存个地址太麻烦了，有没有办法让outlook自动保存？

aaaaabbbbb · 发表于 2009-1-3 17:05

VBA应该可以实现,你可以先看看VBA帮助,试着看会不会做.

23083300 · 发表于 2009-1-12 22:14

我不会写，我刚来这个论坛不错
能帮我写个嘛？随便教下我怎么用？

23083300 · 发表于 2009-1-12 22:15

随便问下，收进来不同邮件的联系能自动保存嘛？
帮我写个好嘛》谢谢

xiaoyejinfei · 发表于 2009-1-14 19:59

不知道啊希望那个能搞好点啊

lgcmeli · 发表于 2009-10-16 16:55

我也想知道啊

高玉甫 · 发表于 2009-10-17 00:28

2楼 aaaaabbbbb 先生，您好！
您是VBA代码的成名人物，您帮我们这些个菜鸟写一段代码吧，多做些善事，您会多子多福的。

lgcmeli · 发表于 2009-10-27 13:10

Sub GetSender()
'按照邮件接收日期由最近到最早的顺序显示发件人邮箱:
Dim myOlApp As Outlook.Application
Dim mpfInbox As Outlook.MAPIFolder
Dim obj As Outlook.MailItem
Dim myexApp As Excel.Application
Dim i As Integer

Set myOlApp = CreateObject("Outlook.Application")
Set mpfInbox = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

Workbooks("Book1.xls").Worksheets("Sheet1").Select

For i = mpfInbox.Items.Count To 1 Step -1
  If mpfInbox.Items(i).Class = olMail Then
Set obj = mpfInbox.Items.Item(i)
Cells(i, 1) = obj.SenderEmailAddress
  End If

Next i

End Sub

		自动登录	找回密码
密码			免费注册

[原创] 怎么outlook自动保存收件人的地址？

回复 2楼 aaaaabbbbb 的帖子

回复 2楼 aaaaabbbbb 的帖子