excel宏，自动发mail

tony

Sub sendmail()

Dim mailtoname, mailaddress As String

Set myOlapp = CreateObject("Outlook.application")
  
    With Worksheets("Address")
        address_rows = .Range("a65536").End(xlUp).Row
        
        i = 2
        Do While i <= address_rows
            mailtoname = .Range("A" & i)
            mailaddress = .Range("B" & i)
            Set myMail = myOlapp.CreateItem(olMailItem)
            
            With myMail
            .To = mailaddress
            .Subject = "Auto send mail"
            .Body = "Hi " & mailtoname & ":" & vbCrLf & "    This is auto send mail , ..."
            .attachments.Add "D:\wo.txt"
   
            .Display
            .Send
            End With
            
        i = i + 1
        Set myMail = Nothing
        Loop
    End With
   
    Set myOlapp = Nothing
End Sub

ctgu77

能不能给个可以有自动提醒功能的代码啊?呵呵~~~