Создание сообщения с вложениями в Outlook 2003 (макросы) / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание сообщения с вложениями в Outlook 2003 (макросы)

5 сообщений из 5, страница 1 из 1

Создание сообщения с вложениями в Outlook 2003 (макросы)

#36051625

SchTiRlic

Гость

Здравствуйте.

Есть следующая задача... Пользователь выделяет в почтовом клиенте Outlook 2003 несколько писем, нажимает на некую кнопку, которая привязана к макросу, после чего создаётся сообщение с определённым получателем, темой, а в качестве вложений у вновь созданного сообщения должны быть те сообщения, которые пользователь выделил.

vb я не знаю, но по частям найденным в Интернете я написал/собрал макрос, который:
1. создаёт сообщение с нужными заполненными полями,
2. получает список выделенных сообщений и пытается их аттачить.
3. Отображает сообщение.

Из за незнания особенностей vb не могу понять, как прикрепить в виде вложений к созданному сообщению объекты, которые были получены из списка выделенных сообщений. Прикрепить полученные объекты методом Attachmrnts.Add не получается.

Исходник макроса ниже

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.

Sub spam()

    Dim OutlookApp As Object
    Dim SM As Object
    Dim objItem As Object
    Dim objMail As MailItem
    Dim OutSlctn As Outlook.Selection
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutSlctn = OutlookApp.ActiveExplorer.Selection          'Выборка выделения
    
    
    If MsgBox("Отправить выделенные письма?", vbQuestion + vbOKCancel) = vbOK Then
        
        Set SM = OutlookApp.CreateItem(olMailItem)              'Создаем объект
        
        SM.To = "spam@test.test"                          'Электронный адрес
        SM.Subject = "SPAM"                                     'Тема
        'SM.Body = ""                                           'Сообщение

        For Each objItem In OutSlctn
            If objItem.Class = olMail Then
                SM.Attachments.Add (objMail) ' Вот тут должен происходить аттач, но вот так, как есть сейчас, аттач не получается
            End If
        Next
        On Error Resume Next                                    'Перехват возможной ошибки
        SM.Display                                              'Отображаем сообщение
        'SM.Send                                                'Посылаем сообщение
            
        Set SM = Nothing                                        'Очищаем использовавшиеся объекты
    End If
    
    Set OutlookApp = Nothing 'Очищаем использовавшиеся объекты
    
End Sub

Посмотрел в msdn про метод Attachments.Add там написано

Dim instance As Attachments
Dim Source As Object
Dim Type As Object
Dim Position As Object
Dim DisplayName As Object
Dim returnValue As Attachment

returnValue = instance.Add(Source, Type, Position, DisplayName)

...

Parameters

Source
The source of the attachment. This can be a file (represented by the full file system path with a file name) or an Outlook item that constitutes the attachment .

Type
The type of the attachment. Can be one of the OlAttachmentType constants.

Position
This parameter applies only to e-mail messages using Microsoft Outlook Rich Text format: it is the position where the attachment should be placed within the body text of the message. A value of 1 for the Position parameter specifies that the attachment should be positioned at the beginning of the message body. A value 'n' greater than the number of characters in the body of the e-mail item specifies that the attachment should be placed at the end. A value of 0 makes the attachment hidden.

DisplayName
This parameter applies only if the mail item is in Rich Text format and Type is set to olByValue: the name is displayed in an Inspector object for the attachment or when viewing the properties of the attachment. If the mail item is in Plain Text or HTML format, then the attachment is displayed using the file name in the Source parameter.

Return Value
An Attachment object that represents the new attachment.

Как я понимаю (см. строку выделенную полужирным выше) в качетсве источника вложения данному методу можно указывать Outlook элемнеты. Может я эти объекты из списка выделения не правльно исопльзую или их нужно как то конвертировать. Помогите разобраться.

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

...

Рейтинг:

0 / 0

19.06.2009, 19:15

| Ответить | Цитировать | Написать

Создание сообщения с вложениями в Outlook 2003 (макросы)

#36051717

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

SchTiRlic

Код: plaintext

1.
2.
3.
4.
5.

        For Each objItem In OutSlctn
            If objItem.Class = olMail Then
                SM.Attachments.Add (objMail) ' Вот тут должен происходить аттач, но вот так, как есть сейчас, аттач не получается
            End If
        Next

В цикле ты перебираешь выделенные объекты и кладешь их по очереди в objItem. А потом берешь из ниоткуда objMail и пытаешься с ним работать.
Либо аттач objItem, либо копируй objItem в objMail перед тем как работать с ним.

...

Рейтинг:

0 / 0

19.06.2009, 20:26

| Ответить | Цитировать | Написать

Создание сообщения с вложениями в Outlook 2003 (макросы)

#36051752

SchTiRlic

Гость

Да, прошу прощения, это моя опечатка, там должно быть objItem.

Код: plaintext

1.
2.
3.
4.
5.

        For Each objItem In OutSlctn
            If objItem.Class = olMail Then
                SM.Attachments.Add (objItem)
            End If
        Next

Но дело в том, что такая контрукция не работает. Выдаёт ошибку. Там что то с типами не то или подобное.

...

Рейтинг:

0 / 0

19.06.2009, 21:10

| Ответить | Цитировать | Написать

Создание сообщения с вложениями в Outlook 2003 (макросы)

#36053411

SchTiRlic

Гость

Если быть точным, то сообщение об ошибке следующее:

"Неправильное имя файла или каталога"

Метод SM.Attachments.Add (objItem) расченивает objItem, как полный путь к какому либо файлу для аттача.

Я вообще уже стал подумывать о временном сохранениии сообщений в какую либо папку и добавлении их в качестве вложений.

...

Рейтинг:

0 / 0

22.06.2009, 12:06

| Ответить | Цитировать | Написать

Создание сообщения с вложениями в Outlook 2003 (макросы)

#36053485

SchTiRlic

Гость

Вопрос решён.

В коде была ошибка в синтаксисе, метод заработал корректно когда я указал параметры без круглых скобок. Так же я ещё добавил указание типа аттачмента. Вот так работает:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

        
        For Each objItem In OutSlctn
            If objItem.Class = olMail Then
                SM.Attachments.Add objMail, olByValue ' olByValue - The attachment is a copy of 
                                                      ' the original file and can be accessed even
                                                      ' if the original file is removed. 
            End If
        Next

Спасибо за внимание.

...

Рейтинг:

0 / 0

22.06.2009, 12:36

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание сообщения с вложениями в Outlook 2003 (макросы)

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&tid=2160824]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	56ms
get topic data:	11ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	201ms

total:	346ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы