Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Новички в программировании > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 11.01.2017, 16:05   #1
Drug_prizrak
Новичок
 
Регистрация: 25.02.2009
Сообщений: 3
Репутация: 10
Вопрос Заполнение списка получателей OUTLOOK VBA

Добрый день!
Пытаюсь сделать так что бы макрос по названию вложенного файла автоматически заполнял список получателей.
Вставить просто E-mail - не проблема, но вот если в списке контактов outlook есть список рассылки, то никак не получается его прикрутить...
Заранее спасибо тому, кто поможет решить данную проблему!
Drug_prizrak вне форума   Ответить с цитированием
Старый 11.01.2017, 16:45   #2
Aleksandr H.
Glory 4 the Nation
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 1,961
Репутация: 711

skype: aleksandr.gryb
По умолчанию

Какое отношение имеет названия вложенного файла к списку получателей?
__________________
Mailto: media.project@ukr.net
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107; ПриватБанк.UA
Aleksandr H. вне форума   Ответить с цитированием
Старый 11.01.2017, 18:04   #3
Drug_prizrak
Новичок
 
Регистрация: 25.02.2009
Сообщений: 3
Репутация: 10
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Какое отношение имеет названия вложенного файла к списку получателей?
Например вложенный файл имеет название "Мука", тогда список рассылки (либо группа контактов) тоже должен называться "Мука" и т.д. и т.п.

Список рассылки, либо группа контактов, это когда в Outlook, под одним именем находится группа получателей.
Drug_prizrak вне форума   Ответить с цитированием
Старый 11.01.2017, 18:25   #4
Aleksandr H.
Glory 4 the Nation
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 1,961
Репутация: 711

skype: aleksandr.gryb
По умолчанию

Цитата:
Сообщение от Drug_prizrak Посмотреть сообщение
Вставить просто E-mail - не проблема,
Приведите код.
Вы можете из листа получить список вложений?
__________________
Mailto: media.project@ukr.net
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107; ПриватБанк.UA
Aleksandr H. вне форума   Ответить с цитированием
Старый 12.01.2017, 11:24   #5
Drug_prizrak
Новичок
 
Регистрация: 25.02.2009
Сообщений: 3
Репутация: 10
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Приведите код.
Вы можете из листа получить список вложений?
Не из листа, а из созданного нового письма в OUTLOOK
(Я его создаю так: на нужный файл нажимаю правой кнопкой мышки -> Отправить -> Адресат)
а потом отрабатывает макрос...

Код:

Option Explicit
Sub Add_info()
  Dim myinspector As Outlook.Inspector
  Dim myItem As Outlook.MailItem
 
  Set myinspector = Application.ActiveInspector
  Set myItem = myinspector.CurrentItem
  Dim FNAme, FFName As String
  Dim LSubject, LEmail As String
  FNAme = ""
  FFName = ""
  
  If myItem.Attachments.Count = 1 Then
    FNAme = LCase(myItem.Attachments.Item(1).FileName)
    FFName = myItem.Attachments.Item(1).FileName

    If FNAme <> "" Then
      
      Select Case FNAme
        Case LCase("Отчет1.xlsb")
          LEmail = "Test1@mail.ru"
        Case LCase("Отчет2.xlsb")
          LEmail = "Test2@mail.ru"
      End Select
    
      myItem.Subject = "Отчет " & Chr(34) & Mid(FFName, 1, InStrRev(FFName, ".") - 1) & Chr(34)
      myItem.Recipients.Add (LEmail)
      End If
  End If
  
  Const sDELIM As String = vbLf
  If myItem.Attachments.Count > 1 Then
    FNAme = sDELIM & "Во вложении группа файлов" & sDELIM
  ElseIf FNAme <> "" Then
    FNAme = sDELIM & "Во вложении файл: " & Chr(171) & FFName & Chr(187) & sDELIM
  Else
    FNAme = sDELIM
  End If

  Dim strbody As String
      strbody = "Добрый день!" & sDELIM & _
                FNAme & _
                sDELIM & _
                "ФИО" & sDELIM & _
                "должность" & sDELIM & _
                "ООО " & Chr(34) & "ОО " & Chr(34) & "компания" & sDELIM & _
                "Тел. Раб. +00 (000) 000-00-00"
  myItem.Body = strbody
  Set myItem = Nothing
  Set myinspector = Nothing
End Sub


Последний раз редактировалось Arigato; 12.01.2017 в 12:05.
Drug_prizrak вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA Outlook Екатерина Попкова Microsoft Office Excel 2 22.04.2015 19:01
Outlook + VBA = Error Евгений Таб Microsoft Office Excel 4 23.06.2014 19:47
Заполнение списка (Си) Polly0819 Помощь студентам 7 25.12.2012 12:12
авто заполнение поля FROM: в outlook tyua Microsoft Office Excel 0 03.07.2009 11:16
VBA & Outlook Sparxy Microsoft Office Access 1 09.02.2009 18:37




01:41.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru