message并不能达到想要的目的:
If Not udoc Is Nothing Then
‘MessageBox "既にデータがあります、先月のデータを削除してください。",MB_OK,"クリア確認"
If MessageBox("既にデータがあります、先月のデータを削除しますか?", _
MB_YESNO + MB_ICONQUESTION, "クリアの確認") = IDYES Then
Do While Not udoc Is Nothing
Call udoc.RemovePermanently(True)
Print "sssssssssssssss"
Set udoc=view.getNextDocument
loop
Else
Exit Sub
End If
End If
效果如下:
这个时候要用prompt:
Dim askme As Integer
askme = ws.Prompt (PROMPT_YESNO, _
"送信一括確認", "Mailsを一括で送付しますか?")
If askme = 1 Then
GoTo start
Else
Exit Sub
End If
Notes里OK,CANCEL按钮的设定,布布扣,bubuko.com
原文地址:http://www.cnblogs.com/vonkenmo/p/3811853.html