Отправка на эл.почту кнопкой - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Отправка на эл.почту кнопкой - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: _Boroda_, китин

Отправка на эл.почту кнопкой (Формулы/Formulas)

Отправка на эл.почту кнопкой

Дата: Суббота, 14.11.2015, 14:52 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Здравствуйте! В приложенном файле на листе «Рабочий» все ячейки окрашенные желтым цветом будут защищены, а белые ячейки для написания оперативной информации. Как сделать так, чтобы при нажатии кнопки «Обновить»(зеленые) информация с белых ячеек напротив этой кнопки, уходила на электронную почту нескольким адресатам.

К сообщению приложен файл: 2023323.xlsx (21.7 Kb)

Ответить

Дата: Суббота, 14.11.2015, 20:31 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Без макросов не решить такую задачу

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Суббота, 14.11.2015, 20:43 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата Serge_007, 14.11.2015 в 20:31, в сообщении № 2

Без макросов

Поэтому и прошу помочь.
Спасибо за то, что перенесли тему в соответствующий раздел!

Сообщение отредактировал Palladium - Суббота, 14.11.2015, 20:57

Ответить

Дата: Понедельник, 16.11.2015, 16:34 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Palladium,
прошу уточнить какой почтовый клиент? (Outlook, другой установленный клиент или через браузер?)

Ответить

Дата: Понедельник, 16.11.2015, 16:36 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 16.11.2015 в 16:34, в сообщении № 4

почтовый клиент

На работе ничего не установлено, кроме Outlook. Так что только он.

Ответить

Дата: Понедельник, 16.11.2015, 16:39 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Это гараздо легче!!!
Как нарисую - выложу (простите, работа много времени отнимает)

Ответить

Дата: Понедельник, 16.11.2015, 16:42 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 16.11.2015 в 16:39, в сообщении № 8

выложу

Спасибо!!!

Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 16:42

Ответить

Дата: Понедельник, 16.11.2015, 17:30 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Palladium,
А в каком виде должна быть информация в тексте письма? Как кусочек таблицы, или данные через запятую, или в каком виде?

Ответить

Дата: Понедельник, 16.11.2015, 17:44 | Сообщение № 9

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 16.11.2015 в 17:30, в сообщении № 10

в каком виде

В графе 2 (задержания): все белые ячейки строки через / или //, а можно чтобы каждая ячейка была в скобках (.......)(......)...
Количество а/м: "за текущий месяц" и "за сутки" можно кнопку объеденить, чтобы за эти две строки отвечала одна кнопка.
В графе 3 (событие) и в графе 4 (структуры) все как в графе 2.

Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 17:45

Ответить

Дата: Понедельник, 16.11.2015, 18:53 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Palladium,
Протестируйте, скажите что поправить.

Работает следующим образом:
- в ячейке Е1 адреса e-mail. Вводить через запятую. Если место не удобное, нарисуйте где удобно - я исправлю в макросе.
- перед нажатием ЛЮБОЙ кнопки "Обновить" станьте на нужную строку.
- пока что сделал чтоб письмо открывалось с предпросмотром, где останется нажать Отправить. Можно сделать чтоб письмо улетало без предпросмотра.

Тема письма берется из названия Графы

К сообщению приложен файл: _2023323.xlsm (36.4 Kb)

Ответить

Дата: Понедельник, 16.11.2015, 18:55 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Кнопка Сохранить сохраняет текущий файл с тем же именем.

Ответить

Дата: Понедельник, 16.11.2015, 19:07 | Сообщение № 12

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 16.11.2015 в 18:53, в сообщении № 10

Протестируйте

Завтра буду на работе и там протестирую. Судя по описанию должно получиться то , что хотел.

Цитата devilkurs, 16.11.2015 в 18:53, в сообщении № 10

станьте на нужную строку.

Просто щелкнуть на ячейке строки или щелкнуть на номере строки?

Цитата devilkurs, 16.11.2015 в 18:55, в сообщении № 11

Кнопка Сохранить

Я имел ввиду, чтобы эта кнопка копировала на другой лист всю таблицу, но пока пусть так все остается. Завтра посмотрю, дома Outlook не настраивал.
Спасибо!!!

Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 19:08

Ответить

Дата: Понедельник, 16.11.2015, 19:48 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Цитата Palladium, 16.11.2015 в 19:07, в сообщении № 12

Просто щелкнуть на ячейке строки или щелкнуть на номере строки?

На любую ячейку нужной строки.

Цитата Palladium, 16.11.2015 в 19:07, в сообщении № 12

кнопка копировала на другой лист всю таблицу

Нарисую чуть позже. Создает новый лист с пустой таблицей?

Ответить

Дата: Понедельник, 16.11.2015, 19:58 | Сообщение № 14

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 16.11.2015 в 19:48, в сообщении № 13

Создает новый лист

Нет. "Рабочий" лист - это тот который заполняется 2 раза в сутки и его по окончанию смены нужно копировать на другой лист и после очистить для следующей смены. А лучше глянь вот ссылка на тему о кнопке "Сохранить" там вопрос в принципе решен.[offtop]Как теперь совместитьте макросы те и эти буду думать позже.

Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 20:08

Ответить

Дата: Понедельник, 16.11.2015, 21:11 | Сообщение № 15

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Цитата Palladium, 16.11.2015 в 19:58, в сообщении № 14

глянь вот ссылка на тему

О нормуль, и как раз оформлена таблица уже. С учетом это кое-что переделал. Тестируйте из это файла.

К сообщению приложен файл: 6757586.xls (81.0 Kb)

Ответить

Дата: Вторник, 17.11.2015, 06:06 | Сообщение № 16

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 16.11.2015 в 21:11, в сообщении № 15

из это файла

Спасибо через 2 часа протестирую, тогда и напишу Спасибо!!!

Ответить

Дата: Вторник, 17.11.2015, 13:19 | Сообщение № 17

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 16.11.2015 в 21:11, в сообщении № 15

Тестируйте

Все просто замечательно. Как раз то что хотел. Я оставил одну кнопку "Отправить" и вынес ее на первую строку к тем двум кнопкам, она одна отправляет со всех граф. Я еще в макросе заменил запятую после адреса на точку-запятой (почему то ругался Outlook).
Можно сказать : вопрос решен!!!
Спасибо!!!
[offtop]Если будет тема по этой же таблице, но с продолжением, можно будет обратить Ваше внимание на тему личным сообщением? Спасибо!!!

Сообщение отредактировал Palladium - Вторник, 17.11.2015, 22:14

Ответить

Дата: Вторник, 17.11.2015, 14:52 | Сообщение № 18

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Palladium,
Рад что все получилось. Мне было самому интересно решать эту задачку

.
[offtop]Пишите конечно

Ответить

Дата: Вторник, 17.11.2015, 18:47 | Сообщение № 19

Группа: Пользователи

Ранг: Участник

Сообщений: 88

Репутация: 0 ±

Замечаний: 20% ±

2003, 2007 RUS

Цитата devilkurs, 17.11.2015 в 14:52, в сообщении № 18

получилось

Я в макросе подправил, чтобы брало в сообщение больше ячеек одной строки - таблицу увеличил. А вот как подправить там где за месяц и за сутки количество а/м, не могу сообразить. Я на работе и с телефона могу только в текстовом файле загрузить макрос. Эти две ячейки объединены, пусть так и будет. Но добавил новые столбцы. Если раньше были CDE, то сейчас CDEFGH. Подскажите, пожалуйста, что заменить нужно. Файл прикладываю.
P/S: Уже дома, поэтому могу показать макрос
[vba]

Код

Sub Отправить_письмо()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range


IRange = ActiveCell.Row 'текущая строка
For ii = 1 To 20
    If ii = 1 Then
        iTo = Range("V4").Value 'кому
    Else
        iTo = iTo + "; " + Range("V" & 3 + ii).Value 'кому
    End If
    If Range("V" & 3 + ii).Value = "" Then Exit For
Next ii
Select Case Range("A" & IRange).MergeArea.Cells(1, 1).Value
    Case 2 'второй ранг
        If Range("B" & IRange).MergeArea.Cells(1, 1).Value = "Количество а/м" Then
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
          Select Case Range("E" & IRange).Value
            Case "За текущий месяц": i = 1
            Case "За сутки": i = -1
          End Select
            iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
                    Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
                    Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value                 ' текст сообщения
        Else
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
            iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                    Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                    Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
        End If
    Case 3 'третий ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
    Case 4 ' соответственно 4 ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
End Select

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")   'запускаем Outlook в скрытом режиме
    OutApp.Session.Logon
    On Error GoTo cleanup  'если не запустился - выходим
    Set OutMail = OutApp.CreateItem(0)   'создаем новое сообщение
    On Error Resume Next
    'заполняем поля сообщения
    With OutMail
        .to = iTo 'кому
        .Subject = iSubject  ' тема сообщения
        .Body = iBody  ' текст сообщения
        '.Attachments.Add Range("A1").Value 'вложения, если когда-то понадобится
        .Display 'команда Send - отправить без предпросмотра письма или Display - чтобы посмотреть сообщение перед отправкой
    End With

    On Error GoTo 0
    Set OutMail = Nothing

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

[/vba]

Цитата devilkurs, 17.11.2015 в 14:52, в сообщении № 18

получилось

Я в макросе подправил, чтобы брало в сообщение больше ячеек одной строки - таблицу увеличил. А вот как подправить там где за месяц и за сутки количество а/м, не могу сообразить. Я на работе и с телефона могу только в текстовом файле загрузить макрос. Эти две ячейки объединены, пусть так и будет. Но добавил новые столбцы. Если раньше были CDE, то сейчас CDEFGH. Подскажите, пожалуйста, что заменить нужно. Файл прикладываю.
P/S: Уже дома, поэтому могу показать макрос
[vba]

Код

Sub Отправить_письмо()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range


IRange = ActiveCell.Row 'текущая строка
For ii = 1 To 20
    If ii = 1 Then
        iTo = Range("V4").Value 'кому
    Else
        iTo = iTo + "; " + Range("V" & 3 + ii).Value 'кому
    End If
    If Range("V" & 3 + ii).Value = "" Then Exit For
Next ii
Select Case Range("A" & IRange).MergeArea.Cells(1, 1).Value
    Case 2 'второй ранг
        If Range("B" & IRange).MergeArea.Cells(1, 1).Value = "Количество а/м" Then
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
          Select Case Range("E" & IRange).Value
            Case "За текущий месяц": i = 1
            Case "За сутки": i = -1
          End Select
            iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
                    Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
                    Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value                 ' текст сообщения
        Else
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
            iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                    Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                    Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
        End If
    Case 3 'третий ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
    Case 4 ' соответственно 4 ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
End Select

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")   'запускаем Outlook в скрытом режиме
    OutApp.Session.Logon
    On Error GoTo cleanup  'если не запустился - выходим
    Set OutMail = OutApp.CreateItem(0)   'создаем новое сообщение
    On Error Resume Next
    'заполняем поля сообщения
    With OutMail
        .to = iTo 'кому
        .Subject = iSubject  ' тема сообщения
        .Body = iBody  ' текст сообщения
        '.Attachments.Add Range("A1").Value 'вложения, если когда-то понадобится
        .Display 'команда Send - отправить без предпросмотра письма или Display - чтобы посмотреть сообщение перед отправкой
    End With

    On Error GoTo 0
    Set OutMail = Nothing

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

[/vba]Palladium

К сообщению приложен файл: 2136227.txt (3.1 Kb)

Сообщение отредактировал Palladium - Вторник, 17.11.2015, 21:57

Ответить

Сообщение

Цитата devilkurs, 17.11.2015 в 14:52, в сообщении № 18

получилось

Я в макросе подправил, чтобы брало в сообщение больше ячеек одной строки - таблицу увеличил. А вот как подправить там где за месяц и за сутки количество а/м, не могу сообразить. Я на работе и с телефона могу только в текстовом файле загрузить макрос. Эти две ячейки объединены, пусть так и будет. Но добавил новые столбцы. Если раньше были CDE, то сейчас CDEFGH. Подскажите, пожалуйста, что заменить нужно. Файл прикладываю.
P/S: Уже дома, поэтому могу показать макрос
[vba]

Код

Sub Отправить_письмо()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range


IRange = ActiveCell.Row 'текущая строка
For ii = 1 To 20
    If ii = 1 Then
        iTo = Range("V4").Value 'кому
    Else
        iTo = iTo + "; " + Range("V" & 3 + ii).Value 'кому
    End If
    If Range("V" & 3 + ii).Value = "" Then Exit For
Next ii
Select Case Range("A" & IRange).MergeArea.Cells(1, 1).Value
    Case 2 'второй ранг
        If Range("B" & IRange).MergeArea.Cells(1, 1).Value = "Количество а/м" Then
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
          Select Case Range("E" & IRange).Value
            Case "За текущий месяц": i = 1
            Case "За сутки": i = -1
          End Select
            iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
                    Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
                    Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value                 ' текст сообщения
        Else
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
            iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                    Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                    Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
        End If
    Case 3 'третий ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
    Case 4 ' соответственно 4 ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
End Select

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")   'запускаем Outlook в скрытом режиме
    OutApp.Session.Logon
    On Error GoTo cleanup  'если не запустился - выходим
    Set OutMail = OutApp.CreateItem(0)   'создаем новое сообщение
    On Error Resume Next
    'заполняем поля сообщения
    With OutMail
        .to = iTo 'кому
        .Subject = iSubject  ' тема сообщения
        .Body = iBody  ' текст сообщения
        '.Attachments.Add Range("A1").Value 'вложения, если когда-то понадобится
        .Display 'команда Send - отправить без предпросмотра письма или Display - чтобы посмотреть сообщение перед отправкой
    End With

    On Error GoTo 0
    Set OutMail = Nothing

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

[/vba]

Автор - Palladium
Дата добавления - 17.11.2015 в 18:47

Дата: Вторник, 17.11.2015, 22:34 | Сообщение № 20

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Вечер добрый. Я с телефона , попробую так ответить.
[vba]

Код

Select Case Range("E" & IRange).Value
Case "За текущий месяц": i = 1
Case "За сутки": i = -1
End Select
iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value ' текст сообщения
Else
iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщени

[/vba]
Скорректируйте в первом случае iBody в куске выше. Смысл такой (на память пишу) столбик Е (за сутки например) двоеточие и далее столбы С иD раделенные слешем. После Chr(10) идет обработка другой строки (за месяц допустим). Добавте перед Chr(10) вот такое & Range("C" & IRange).Value & " / " только с новыми столбцами. А послеChr(10) вот такоеRange("C" & IRange + i).Value & " / " с новыми столбцами.

Сообщение отредактировал devilkurs - Вторник, 17.11.2015, 22:43

Ответить

Отправка на эл.почту кнопкой (Формулы/Formulas)

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!