|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.11.2008, 10:46 | #11 |
Форумчанин
Регистрация: 25.09.2007
Сообщений: 102
|
А если усложнить.
Например, подставить e-mail по условию. Допустим в документе есть скрытый лист с двумя столбцами Первый столбец это имя пользователя, второй это столбец с соответствующим мылом начальника. Макрос узнает какой пользователь сейчас юзает макрос (Application.UserName), далее ищет на скрытом листе соответствующего данному пользователю начальника, подставляет мыло и отправляет. Важно, не очень хочется заставлять пользователя сохранять отчет, куда интереснее было бы если бы макрос сам сохранял в темпа отчет (пусть да же если нужно создавая папку Temp на диске C), НО после отправки удалял. Отчет не имеет смысла хранить на жестком диске, ибо его всегда можно найти в отправленных. Для чего может быть нужно: человек заполняет отчет (ну скажем по затратам на командировку), после заполнения жмакает кнопку «post report» и отчет уходит его начальнику + было бы неплохо если бы в копии стояли несколько статический e-mail (например финансового директора и главного бухгалтера) З.Ы. SAM888 Ваш макрос прекрасно работает на Outlook 2003 |
21.11.2008, 13:38 | #12 |
Регистрация: 12.11.2008
Сообщений: 7
|
Есть макрос, который отсылает листы книги без формул, название листа - адрес получателя, помогите избавится от подтверждения на отсылку каждого листа, их много, неохота сидеть и подтверждать отсылку каждого листа. Shortcut: Ctrl+s
Sub Macro1() ' ' ' Keyboard Shortcut: Ctrl+s ' On Error GoTo Err Const FN = "C:\test.xls" Dim i As Integer If Application.MailSystem = xlMAPI Then For i = 1 To Worksheets.Count If Dir(FN, vbNormal) <> "" Then Kill (FN) Worksheets(i).Copy With Workbooks(Workbooks.Count) Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ' Rows("26:94").Select ' Selection.Delete Shift:=xlUp .SaveAs Filename:=FN .SendMail Recipients:=.Worksheets(1).Name, _ Subject:="Sales stat for " + .Worksheets(1).Name .Close Not (.Saved), FN End With Next i If Dir(FN, vbNormal) <> "" Then Kill (FN) MsgBox "OK" Else MsgBox "No mail system installed" End If Exit Sub Err: MsgBox "ERROR" End Sub |
21.11.2008, 14:44 | #13 | |
Форумчанин
Регистрация: 25.09.2007
Сообщений: 102
|
Цитата:
Вот я что смог родить, мой нубский вариант: Код:
|
|
19.02.2009, 17:18 | #14 | |
Новичок
Джуниор
Регистрация: 23.10.2008
Сообщений: 2
|
Цитата:
У меня все в одну строчу получается, а как перенести на другую, не знаю... |
|
19.02.2009, 17:31 | #15 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Код:
|
|
25.02.2009, 13:48 | #16 |
Новичок
Джуниор
Регистрация: 23.10.2008
Сообщений: 2
|
Спасибо!
То, что нужно! |
17.03.2009, 14:25 | #17 |
Новичок
Джуниор
Регистрация: 17.03.2009
Сообщений: 1
|
Подскажите пожалуйста, а можно ли сделать макрос который бы подставлял определенный адрес в копию всех писем при создании. но чтобы можно этот адрес было удалить, если все таки эта копия не нужна
|
19.04.2009, 20:44 | #18 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
подскажите пожалуйста, в чем дело (Excel 2003)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Microsoft Office Outlook Событие автоматической отправки писем из папки Исходящие при появлении интернета | fandm | Софт | 0 | 23.04.2008 10:15 |
помогите, пожалуйсто, написать макрос для excel | bacalavr | Microsoft Office Excel | 2 | 04.04.2008 11:39 |
Макрос в Excel для обработки группы файлов | ad_sum | Microsoft Office Excel | 1 | 29.12.2007 16:56 |
MS Excel и MS Outlook (2003) отсылка писем | IceB | Microsoft Office Excel | 1 | 02.07.2007 13:32 |
Microsoft Office Outlook : отправка писем | gaybiza | Софт | 1 | 18.11.2006 00:14 |