Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
создать сообщение LOTUS NOTES из VBA EXCEL без отправки
 
#1
13.02.2011 22:46:54
Здравствуйте,  
 
ищу решение для подготовки мэйла (без отправки!)в Lotus Notes из макроса в Excel.    
Нашла решения с немедленной отправкой,    
но мне нужно просто открыть новый формуляр сообщения с заданным текстом в теме мэла и в самом сообщении, плюс автоматически прикрепленный активный файл Exel из которого запускается макрос.    
Каждое сообщение должно быть проверено перед отправкой, так что решение с прямой отправкой не подходит.  
Спасибо, если кто может подать идею :-)
 
 
 
#2
13.02.2011 23:33:56
Если Лотус - мейл по умолчанию:  
 
Sub tt()  
 
'отправка текущего листа  
ActiveWorkbook.ActiveSheet.Copy  
With ActiveWorkbook  
.SendMail Recipients:="имя@почта.ру", _  
Subject:="Смотрите прикрепленный файл"  
.Close SaveChanges:=False  
End With  
 
End Sub  
 
 
Если нужно отправить всю книгу - попробуйте без  
'отправка текущего листа  
ActiveWorkbook.ActiveSheet.Copy  
Сам сейчас проверить не могу.
 
 
 
#3
14.02.2011 10:57:44
Лотус по умолчанию, но при запуске макроса выдает ошибку на строке    
 
.SendMail Recipients:="имя@почта.ру", _  
Subject:="Смотрите прикрепленный файл"  
 
ошибка 1004 "метод SendMail объекта Workbook не сработал" (ну что-то в этом роде - у меня французская версия всех программ, не знаю как звучит ошибка точно по-русски )
 
 
 
#4
14.02.2011 11:10:20
Я проверил на Лотусе у себя - отработало. И целиком с файлом тоже.  
Может быть у Вас кириллица не нравится - попробуйте заменить.
 
 
 
#5
14.02.2011 12:16:47
Если письмо создается так:  
 
   Set notesOLE = CreateObject("Notes.NotesSession")  
   Set maildb = notesOLE.GETDATABASE("", "", False)  
     
   maildb.OPENMAIL 'locate the user's mail database.  
   Set memo = maildb.CREATEDOCUMENT()  
 
, то следующей командой оно сохраняется в папке Draft без отправки:  
 
   memo.Save True, False
 
 
 
#6
15.02.2011 15:38:35
Cпасибо, нашла вариант который сработал:  
 
Sub envoi_anomalies_EDI()  
 
 
   Dim Session As Object  
   Dim Dir As Object  
   Dim Doc As Object  
   Dim Workspace As Object  
   Dim EditDoc As Object  
   Dim AttachME As Object  
 
'Création de la session Notes  
   Set Workspace = CreateObject("Notes.NotesUIWorkspace")  
   Set Session = CreateObject("notes.NOTESSESSION")  
   Set Dir = Session.GETDATABASE("", "")  
   Call Dir.OPENMAIL  
     
   'Creation d'un document  
   Set Doc = Dir.CREATEDOCUMENT  
     
   'Doc.form = "Memo"  
   Doc.Subject = "test"  
   Doc.SendTo = test@mail.ru  
   Doc.body = "Bonjour,"        
     
     
     
   Attachment = ActiveWorkbook.FullName 'Mise en piece jointe du fichier concerné  
If Attachment <> "" Then  
Set AttachME = Doc.CREATERICHTEXTITEM("Attachment" & i)  
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")  
Doc.CREATERICHTEXTITEM ("Attachment" & i)  
End If  
     
     
   Doc.SAVEMESSAGEONSEND = True  
     
   'Affichage du mail dans Lotus Notes - открытие документа для редактирования  
   Set EditDoc = Workspace.EditDocument(True, Doc)  
     
   Set Session = Nothing  
   Set Dir = Nothing  
   Set Doc = Nothing  
   Set Workspace = Nothing  
   Set EditDoc = Nothing  
     
   End Sub
 
 
 
#7
07.02.2012 02:12:01
Здраствуйте, помогите кто может. Как в выше приведенном макросе сделать так,чтобы автоматически в письмо додавались все файлы с укзаной папки.    
Заранее благодарен.
 
 
 
#8
08.02.2012 03:06:59
Сам нащел решение, результат в файле, нужно расширение поменять на exe
 
 
 
#9
10.02.2012 02:42:35
файл
 
 
 
#10
27.02.2012 21:44:52
файл  мммм
 
 
 
#11
18.03.2012 23:10:26
нужно тест
 
 
 
#12
28.04.2012 00:01:45
без  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#13
02.05.2012 19:32:29
,mn
 
 
 
#14
13.05.2012 23:47:15
jgjgjuiyu  
 
<EM><FONT color=#99000><STRONG>Два последних файла удалены. Почему? Размер-то в пределах?  
За неуважение к форуму. Нечленораздельное мычание неизвестных анонимов. То ли ответ, то ли вопрос...</STRONG></FONT>  - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#15
15.05.2012 09:04:07
Подскажите как открыть бланк в Lotus Notes и наполнить содержимым письма.  
 
 
Ниже выложеный файл к вопросу не относится.
 
 
 
#16
15.05.2012 09:25:42
Если файл к вопросу не относится, зачем он здесь?
 
 
 
#17
22.05.2012 08:56:43
Извените за спам, но это единственный способ передать информацию.  
 
 
<EM><FONT color=#99000><STRONG>Alex, совершенно непонятно, для чего Вы выкладываете файлы, которые "к вопросу не относятся" и "спам".  
Кому какую информацию Вы собираетесь передать? Форум вместо файлообменника?</STRONG></FONT>  - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
Страницы: 1
Читают тему
Наверх