1
1KIA
Есть кнопка, при нажатии на которую, письмо отправляется на эл. почту
кнопка
Все работает нормально, но есть проблема
При пересылки писем MIME, выдает сообщение "your current ID does not contain an internet certificate... "
Нашла undefined
но хотелось бы знать, можно ли как-то избежать этих сообщений возможно в самом коде?
кнопка
Код:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Dim workspace As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
Do Until doc Is Nothing
Call doc.Send(True,"почта@ua")
Call doc.RemoveFromFolder("($InBox)")
Set doc = collection.GetNextDocument(doc)
Loop
Call collection.UpdateAll
Call workspace.ViewRefresh
При пересылки писем MIME, выдает сообщение "your current ID does not contain an internet certificate... "
Нашла undefined
но хотелось бы знать, можно ли как-то избежать этих сообщений возможно в самом коде?