Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 11.08.2016
Сообщений: 55
1

Отправка писем через Lotus Notes

24.08.2018, 12:25. Просмотров 1442. Ответов 1
Метки нет (Все метки)


Есть такой макрос (см ниже) письмо формируется но не отправляется . подскажите в чем проблема, плиззз
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Sub otpravka ()
   
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'The current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim Subject As String 'The subject string
Dim Attachment As String 'The path to the attachemnt string
Dim Recipient As String 'The Recipient string (or you could use the list)
Dim Recip(10) As Variant 'The Recipient list
Dim BodyText As String 'The body text
Dim SaveIt As Boolean 'Save to sent mail
Dim WasOpen As Integer 'Checking to see if the Mail DB was already
Dim uiDoc As Object
Dim uiWorkspace As Object
Dim docProfile As Variant
Dim strProfileEnableSignature As Variant
Dim CopyTo As String
Dim BlindCopyTo As String
   
   
Application.ScreenUpdating = False
Application.DisplayAlerts = False
   
Subject = TEMA
Recipient = ADRESS
CopyTo = KOPIA
BlindCopyTo = BLINDCOPY
SaveIt = True
   
Set Session = CreateObject("Notes.NotesSession")
Set uiWorkspace = CreateObject("Notes.NotesUIWorkspace")
   
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GetDatabase("", MailDbName)
   
If Maildb.IsOpen = True Then
WasOpen = 1 'Already open for mail
Else
WasOpen = 0
Maildb.OPENMAIL 'This will prompt you for password
End If
   
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient 'Or use Racip(10) for multiple
MailDoc.CopyTo = CopyTo
MailDoc.BlindCopyTo = BlindCopyTo
MailDoc.Subject = Subject
   
MailDoc.Body = "ïïïï"
   
'MailDoc.SAVEMESSAGEONDRAFTS = SaveIt
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
'Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", ÂëîæåíèåÏèñüìà)
   
'MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
'Set uiDoc = uiWorkspace.EDITDOCUMENT(True, MailDoc)
Set docProfile = Maildb.GETPROFILEDOCUMENT("CalendarProfile")
strProfileEnableSignature = docProfile.GETITEMVALUE("EnableSignature")(0)
If strProfileEnableSignature = "1" Then
docProfile.EnableSignature = ""
Call docProfile.Save(True, False)
End If
   
 
   
Call uiWorkspace.EDITDOCUMENT(True, MailDoc)
   
If strProfileEnableSignature = "1" Then
docProfile.EnableSignature = "1"
Call docProfile.Save(True, False)
End If
   
'MailDoc.SEND 0, Recipient // if you want to send
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set EmbedObj = Nothing
Set uiDoc = Nothing
If WasOpen = 1 Then
Set Session = Nothing
ElseIf WasOpen = 0 Then
Set Session = Nothing
End If
   
Dim Msg, Style, Title
'Msg = "E-mail has been sent to " & Recipient & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Press OK to continue."
Style = vbOKOnly + vbInformation
Title = "Open Issues List"
'Response = MsgBox(Msg, Style, Title, Help, Ctxt)
  
 
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
       
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.08.2018, 12:25
Ответы с готовыми решениями:

Отправка писем в excel через outlook
Добрый день, форумчане! Есть вопрос по написанию макроса. У меня есть макрос для отправки писем...

Прерывается отправка писем через Outlook
добрый день, подскажите, что нужно добавить в код, чтобы рассылка не прерывалась? Сейчас...

Отправка писем из Excel через Outlook
Как задать такой цикл, в котором бы автоматом выбирались только е-мэйлы по столбцу D, притом чтобы...

Отправка писем из Excel-я через Outlook
Всем доброго времени суток. Очень большая просьба помочь доделать. Есть макрос для отправки писем...

1
6820 / 2762 / 520
Регистрация: 19.10.2012
Сообщений: 8,422
24.08.2018, 18:51 2
Обратите внимание на строку 79!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.08.2018, 18:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

почтовая база, Lotus Notes 8, не видно вх. писем
проабгредил Lotus Domino 6.0 -> 8.0.1 на паре клиетов поставил Lotus Notes 8.0.1 : в одном месте...

Проблема С Отправкой Писем На Внешку Lotus Notes
Добрый день! При отправке писем на внешние ресурсы (сервер Lotus Notes отправляет их через почтовый...

Отправка писем с форматированием из базы Lotus на внешнюю почту
Коллеги доброе время суток. возможно повторюсь и подобное обсуждение было на форуме но прочел все...

SQL Server сообщения через Lotus Notes
Добрый день. Может ищу решение задачи по рассылке писем SQL Server-ом через Lotus Notes...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.