- 22.08.2008
- 1 851
- 27
Всем привет.
Есть задача отсылать письма из Access.
Решино было использовать COM.
Вопрос вот в чем... как отсылать письмо прозрачно для пользователя?
В ниже приведенном коде почти все работает как надо... кроме того что запускается Notes-клиент.
Хотя по идее не должен бы. Что не правильно?
Есть задача отсылать письма из Access.
Решино было использовать COM.
Вопрос вот в чем... как отсылать письмо прозрачно для пользователя?
В ниже приведенном коде почти все работает как надо... кроме того что запускается Notes-клиент.
Хотя по идее не должен бы. Что не правильно?
Код:
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = False Then
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = SendTo
MailDoc.Subject = "TEST COM"
MailDoc.Body = "User Text............"
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.SEND 0, Recipient
