WinFax傳送記錄清除－羅必達工作室

傳送記錄太多時, WinFax會變得有點問題

Set logObj = CreateObject("WinFax.SDKLog")

eID="" & _
"0000000090CA020000000000C00000" & _
"0000000046010121911800000003000" & _
"0000102030405060708111213141516" & _
"171821000020"

SmID = logObj.GetMessageListFirst(0, eID)
kill_date_taget = Dateadd("d",-7,date)
NG_kill_date_taget = Dateadd("n",-80,now)

While LenB(SmID) <> 0

    ErrCode = logObj.GetMessageErrorCode(SmID)
    FaxSubject = logObj.GetMessageSubject(SmID)
    ShopName = logObj.GetMessageDisplayName(SmID)
    MessageDate = logObj.GetMessageDate(SmID)
    MessageTime = logObj.GetMessageTime(SmID)
    DeleteMessage_flag=0

    If ErrCode <> 0 Then
        '傳送失敗
        if cdate(MessageDate)<NG_kill_date_taget then
            '傳送失敗己經超過80分鐘了,刪除資料
            DeleteMessage_flag=1
        else
            '沒超過時間, 保留資料
        end if
    Else
        if cdate(MessageDate)<kill_date_taget then
            '7天前己經傳送成功的資料刪除
            DeleteMessage_flag=1
        else
            '沒超過時間保留資料
        end if
    End If


    if DeleteMessage_flag=1 then
        DeleteMessage = logObj.DeleteMessage(SmID)
        if DeleteMessage = 0 then
            '刪除成功
        else
            '刪除失敗
        end if
    end if

    SmID = logObj.GetMessageListNext()
Wend
Set logObj = nothing