Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Автоматическая отправка e-mail через outlook по дате. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Работа / Фриланс » Автоматическая отправка e-mail через outlook по дате.
Автоматическая отправка e-mail через outlook по дате.
Neznaika0457 Дата: Пятница, 02.12.2022, 15:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!
Вводные: есть таблица Excel с данными Компаний, которые проходили обучение (каждый год имеет отдельный Лист в таблице) и получили сертификат сроком на 2 года. Соответственно, по окончании действия сертификата (за один месяц) необходимо напомнить Компании, что срок действия сертификата истекает. В Excel таблице записаны следующие данные, даты прохождения обучения, название компаний, контактная информация (тел. , e-mail), ФИО. Данные в таблицу заносятся в ручную, после каждого обучения. В среднем в месяц 5...10 контактов *12 месяцев. Ведётся с 2018 года.

Задача: необходима автоматическая рассылка писем через Оutlook (тема, тело письма, подпись +файл с вложением). Рассылка должна производиться на основании данных (даты) из таблицы Excel, за один месяц до окончания даты срока действия сертификата.

Что есть: взял готовый макрос из интернета и допилил его - есть тема, само письмо, есть подпись и файл с вложением. НО нет автоматической рассылки, только в ручную, командой run.

Сильно не пинайте, это первый опыт в макросах ;) .

[vba]
Код
Sub send_email()
Dim olApp As Object

Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
' e-mail subject
strSubj = "Окончание срока сертификата (название компании)"
On Error GoTo dbg
' creating odject for Outlook
Set olApp = CreateObject("Outlook.Application")
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
' creating new element (email message) in Outlook
Set olMailItm = olApp.CreateItem(0)
strBody = ""
useremail = Cells(iCounter, 1).Value
FullUsername = Cells(iCounter, 2).Value
Status = Cells(iCounter, 4).Value
pwdchange = Cells(iCounter, 3).Value
' body of the email
strBody = "Вас приветствует команда (название компании)!" & vbCrLf
strBody = strBody & "   " & vbCrLf
strBody = strBody & "Приглашаем на сервисное обучение (тело письма) " & vbCrLf
strBody = strBody & " Дата окончания действия сертификата " & pwdchange & vbCrLf
strBody = strBody & " Надеемся на дальнейшее сотрудничество! " & vbCrLf
strBody = strBody & "   " & vbCrLf
strBody = strBody & "---" & vbCrLf
strBody = strBody & ""
strBody = strBody & "Best regards," & vbCrLf
strBody = strBody & ""
strBody = strBody & " " & vbCrLf
strBody = strBody & ""
strBody = strBody & "Andrew " & vbCrLf
strBody = strBody & ""
strBody = strBody & "Tel.: +7" & vbCrLf
strBody = strBody & ""
strBody = strBody & "Tel: +7  (Moscow)" & vbCrLf
olMailItm.To = useremail
olMailItm.Subject = strSubj
olMailItm.BodyFormat = 1
' 1 - text format of letter, 2 - HTML format
olMailItm.Body = strBody
olMailItm.Attachments.Add "C:\Users\Desktop\УНО\Cервисное обучение на I-квартал 2023 год.pdf"
olMailItm.Save
olMailItm.Send
' etu strochku mojno ispolzovat dlia otkladki pisma
'MsgBox strBody
Set olMailItm = Nothing
Next iCounter
Set olApp = Nothing
dbg:
'errors,if yes
If Err.Description <> "" Then MsgBox Err.Description
End Sub
[/vba]


Сообщение отредактировал Neznaika0457 - Пятница, 02.12.2022, 15:46
 
Ответить
СообщениеДобрый день!
Вводные: есть таблица Excel с данными Компаний, которые проходили обучение (каждый год имеет отдельный Лист в таблице) и получили сертификат сроком на 2 года. Соответственно, по окончании действия сертификата (за один месяц) необходимо напомнить Компании, что срок действия сертификата истекает. В Excel таблице записаны следующие данные, даты прохождения обучения, название компаний, контактная информация (тел. , e-mail), ФИО. Данные в таблицу заносятся в ручную, после каждого обучения. В среднем в месяц 5...10 контактов *12 месяцев. Ведётся с 2018 года.

Задача: необходима автоматическая рассылка писем через Оutlook (тема, тело письма, подпись +файл с вложением). Рассылка должна производиться на основании данных (даты) из таблицы Excel, за один месяц до окончания даты срока действия сертификата.

Что есть: взял готовый макрос из интернета и допилил его - есть тема, само письмо, есть подпись и файл с вложением. НО нет автоматической рассылки, только в ручную, командой run.

Сильно не пинайте, это первый опыт в макросах ;) .

[vba]
Код
Sub send_email()
Dim olApp As Object

Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
' e-mail subject
strSubj = "Окончание срока сертификата (название компании)"
On Error GoTo dbg
' creating odject for Outlook
Set olApp = CreateObject("Outlook.Application")
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
' creating new element (email message) in Outlook
Set olMailItm = olApp.CreateItem(0)
strBody = ""
useremail = Cells(iCounter, 1).Value
FullUsername = Cells(iCounter, 2).Value
Status = Cells(iCounter, 4).Value
pwdchange = Cells(iCounter, 3).Value
' body of the email
strBody = "Вас приветствует команда (название компании)!" & vbCrLf
strBody = strBody & "   " & vbCrLf
strBody = strBody & "Приглашаем на сервисное обучение (тело письма) " & vbCrLf
strBody = strBody & " Дата окончания действия сертификата " & pwdchange & vbCrLf
strBody = strBody & " Надеемся на дальнейшее сотрудничество! " & vbCrLf
strBody = strBody & "   " & vbCrLf
strBody = strBody & "---" & vbCrLf
strBody = strBody & ""
strBody = strBody & "Best regards," & vbCrLf
strBody = strBody & ""
strBody = strBody & " " & vbCrLf
strBody = strBody & ""
strBody = strBody & "Andrew " & vbCrLf
strBody = strBody & ""
strBody = strBody & "Tel.: +7" & vbCrLf
strBody = strBody & ""
strBody = strBody & "Tel: +7  (Moscow)" & vbCrLf
olMailItm.To = useremail
olMailItm.Subject = strSubj
olMailItm.BodyFormat = 1
' 1 - text format of letter, 2 - HTML format
olMailItm.Body = strBody
olMailItm.Attachments.Add "C:\Users\Desktop\УНО\Cервисное обучение на I-квартал 2023 год.pdf"
olMailItm.Save
olMailItm.Send
' etu strochku mojno ispolzovat dlia otkladki pisma
'MsgBox strBody
Set olMailItm = Nothing
Next iCounter
Set olApp = Nothing
dbg:
'errors,if yes
If Err.Description <> "" Then MsgBox Err.Description
End Sub
[/vba]

Автор - Neznaika0457
Дата добавления - 02.12.2022 в 15:20
_Boroda_ Дата: Пятница, 02.12.2022, 15:44 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16560
Репутация: 6446 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Повесьте запуск этого макроса на событие открытия книги. Чтобы несколько раз не отправлял, сделайте проверку даты последней отправки
[vba]
Код
Private Sub Workbook_Open()
    With Me.Worksheets(1)
        If Cells(1) <> Date Then
            send_email
            Cells(1) = Date
        End If
    End With
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПовесьте запуск этого макроса на событие открытия книги. Чтобы несколько раз не отправлял, сделайте проверку даты последней отправки
[vba]
Код
Private Sub Workbook_Open()
    With Me.Worksheets(1)
        If Cells(1) <> Date Then
            send_email
            Cells(1) = Date
        End If
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 02.12.2022 в 15:44
Neznaika0457 Дата: Пятница, 02.12.2022, 15:48 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

_Boroda_, ок, спасибо! поправлю...
 
Ответить
Сообщение_Boroda_, ок, спасибо! поправлю...

Автор - Neznaika0457
Дата добавления - 02.12.2022 в 15:48
Serge_007 Дата: Пятница, 02.12.2022, 15:48 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 15656
Репутация: 2578 ±
Замечаний: ±

Excel 2016
Вы разделом не ошиблись?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВы разделом не ошиблись?

Автор - Serge_007
Дата добавления - 02.12.2022 в 15:48
_Boroda_ Дата: Пятница, 02.12.2022, 15:49 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16560
Репутация: 6446 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
О! Я-то точно не заметил )))


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеО! Я-то точно не заметил )))

Автор - _Boroda_
Дата добавления - 02.12.2022 в 15:49
Neznaika0457 Дата: Пятница, 02.12.2022, 15:53 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал Neznaika0457 - Пятница, 02.12.2022, 15:57
 
Ответить
СообщениеЗа бесплатно, вряд ли кто-то будет вникать и дописывать макрос. Поэтому, готов оплатить в пределах разумного, данную работу.

Автор - Neznaika0457
Дата добавления - 02.12.2022 в 15:53
_Boroda_ Дата: Пятница, 02.12.2022, 15:57 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16560
Репутация: 6446 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
За бесплатно, вряд ли кто-то будет вникать и дописывать макрос

Дык уже ж, вроде, и вник, и дописал :D :D :D
Повесьте запуск этого макроса на событие открытия книги


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995


Сообщение отредактировал _Boroda_ - Пятница, 02.12.2022, 15:57
 
Ответить
Сообщение
За бесплатно, вряд ли кто-то будет вникать и дописывать макрос

Дык уже ж, вроде, и вник, и дописал :D :D :D
Повесьте запуск этого макроса на событие открытия книги

Автор - _Boroda_
Дата добавления - 02.12.2022 в 15:57
Serge_007 Дата: Пятница, 02.12.2022, 15:58 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 15656
Репутация: 2578 ±
Замечаний: ±

Excel 2016
готов оплатить в пределах разумного, данную работу
Ну так бы и написали в топике :)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
готов оплатить в пределах разумного, данную работу
Ну так бы и написали в топике :)

Автор - Serge_007
Дата добавления - 02.12.2022 в 15:58
_Boroda_ Дата: Пятница, 02.12.2022, 15:59 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16560
Репутация: 6446 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Кидайте мне на почту файл (почта в моем профиле). Вечером посмотрю


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеКидайте мне на почту файл (почта в моем профиле). Вечером посмотрю

Автор - _Boroda_
Дата добавления - 02.12.2022 в 15:59
Мир MS Excel » Работа и общение » Работа / Фриланс » Автоматическая отправка e-mail через outlook по дате.
  • Страница 1 из 1
  • 1
Поиск:

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