Автоматическая отправка сообщений из excel на почту

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

Автоматическая отправка сообщений из excel на почту (Иное)

Отправка message

Дата: Среда, 20.11.2013, 22:42 | Сообщение № 1

Группа: Гости

Доброго времени суток!!!

Имеется таблица на 3 столбца
1. Наименование организации

2. Дата установки

3. Точная дата окончания расходуемых материалов(высчитывается по формуле автоматически)

Вопрос, как сделать что бы когда в столбце №3 дата подходила к настоящему времени, автоматически посылалось сообщение(уведомление) на mail(outlook)
с предупреждением?

Заранее спасибо

p.s. Я не частый клиент таких форумов но приспичило,надеюсь просветите,
ещё раз огромное спасибо!!!

Ответить

SkyPro

Дата: Четверг, 21.11.2013, 00:38 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

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

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

2010

Подключить Microsoft Outlook "цифры" Object Library
[vba]

Код

Sub mailsender()
Dim OL As New Outlook.Application
Dim SM As Outlook.MailItem
Dim x
Dim i&
Dim s&
Set SM = OL.CreateItem(olMailItem)
With ThisWorkbook
For s = 1 To .Sheets.Count
      x = .Sheets(s).Range("C1:C" & .Sheets(s).[c65535].End(xlUp).Row).Value
If Not IsEmpty(x) Then
          For i = LBound(x) To UBound(x)
              If x(i, 1) = Date Then
              Debug.Print x(i, 1)
                  SM.To = "yourMail@mail.mail"
                  SM.Subject = "ALERT!!"
                  SM.Body = Date
                  SM.Display
                  SM.Send
              End If
          Next
End If
Next
End With
End Sub

[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Четверг, 21.11.2013, 00:41

Ответить

Алексей

Дата: Понедельник, 23.03.2015, 11:40 | Сообщение № 3

Группа: Гости

Добрый день! помогите переделать макрос так чтобы от посылал в теме письма значение ячеек из столбца "а" если в столбце "b" этой же строки применилось правило условного форматирования (например заливка цветом)

[moder]Зарегистрируйтесь. Создайте новую тему! Приложите файл-пример согласно ПРАВИЛ и Вам обязательно помогут![/moder]

Сообщение отредактировал DJ_Marker_MC - Понедельник, 23.03.2015, 11:45

Ответить

Автоматическая отправка сообщений из excel на почту (Иное)

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