[求助]能否让outlook2003自动发送邮件？（不是回执）

sgpxd

如何能让outlook 2003按照一定日期自动发送邮件？我写了个vba可是不能用，请指教：

Sub action_send_auto() Dim today, i Dim olkapp As Outlook.Application Dim malinewmail As MailItem today = Now i = Weekday(today) Select Case i Case 1 Set olkapp = CreateObject("outlook.application") Set malinewmail = olkapp.CreateItem(olMailItem) With malinewmail .To = "xxx@xxx" .Subject = "CASH FLOW" .Body = "请将CASH FLOW 交上" End With Case 5 End Select End Sub

初步想法是每周一自动发送此通知信。可是不能实现。

sgpxd

如何能让outlook 2003按照一定日期自动发送邮件？我写了个vba可是不能用，请指教：

Sub action_send_auto()

Dim today, i

Dim olkapp As Outlook.Application

Dim malinewmail As MailItem

today = Nowi = Weekday(today)

Select Case i

Case 1

Set olkapp = CreateObject("outlook.application")

Set malinewmail = olkapp.CreateItem(olMailItem)

With malinewmail

.To = "xxx@xxx"

.Subject = "CASH FLOW"

.Body = "请将CASH FLOW 交上"

End With

Case 5

End Select

End Sub

初步想法是每周一自动发送此通知信。可是不能实现。

aaaaabbbbb

为什么不用约会功能呢？这样对方一旦接受，可以定期提醒他。

sun5

不会是乱发邮件吧？

hhzjxss

outlook 没用过，不知道怎么搞呀！

sulyn525

怎么用啊?如果根据生日日期定时发送？