Об управлении MS Outlook / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Об управлении MS Outlook

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

Об управлении MS Outlook

#32773841

Galustov

Гость

С вопросом кодировки сообщений мне удалось разобраться.
Второй вопрос: как отключить сообщение в MS Outlook, которое в аттачменте приложено? Оно стоит 5 секунд при каждой попытке отправить какое-либо сообщение...

А вдруг всё-таки кто-то это знает :):):):):):) хотя надежды мало...

Спасибо

...

Рейтинг:

0 / 0

09.11.2004, 15:42:11

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

Об управлении MS Outlook

#32773967

Proga

Участник

Откуда: МО

Сообщения: 2 440

Рейтинг: 0 / 0

А кодируешь так

Код: 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.

Public Function GO_GO(COMU, CHTO, NCR)
On Error GoTo Err_SUB_SUB
Dim OlApp As Outlook.Application
Dim mail_res As MailItem
Set OlApp = CreateObject("Outlook.Application")
Set mail_res = OlApp.CreateItem(olMailItem)
With mail_res
.Subject = "CR_" & NCR
.To = COMU
.Body = CHTO
.Display
End With

Exit_func:
 Exit Function

Err_SUB_SUB:
If Err = - 2113732605  Then
    Call Shell("Program Files\Microsoft Office\Office\outlook.exe",  1 )
    Set mail_res = OlApp.CreateItem(olMailItem)
    With mail_res
    .Subject = "CR"
    .To = COMU
    .Body = CHTO
    .Display
    End With
Else
    MsgBox Err.Description
    Resume Exit_func
End If

End Function

или по другому, покажи код.

...

Рейтинг:

0 / 0

09.11.2004, 16:22:55

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

Об управлении MS Outlook

#32774599

Galustov

Гость

Я, честно сказать написал макросок внутри MS Outlook :)

Код: 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.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.

Sub multy_forward()
'пересылает письма на указанные адреса
'и добавляет указанный текст в поле сообщения
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection

'Dim MsgTxt As String
Dim myOlMail As Outlook.MailItem
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
komu = "Пупкин П.П." 'можно через точку с запятой несколько указать

For Each myOlMail In myOlSel
'MsgBox test_codepage(myOlMail)
If test_codepage(myOlMail) = "20866" Then
        Set myforward = myOlMail.Forward
        str_text = "УПЗМБУПЧБОП" '"согласовано" при koi8-R
        If myOlMail.BodyFormat = olFormatHTML Then
        myforward.HTMLBody = str_text & vbCr & vbCr & vbCr & myOlMail.HTMLBody
        Else
            If myOlMail.BodyFormat = olFormatPlain Then
                str_text = "согласовано" '"согласовано" при windows-1251
                myforward.Body = str_text & vbCr & vbCr & vbCr & myforward.Body
            End If
        End If
        myforward.Recipients.Add komu
        myforward.Send
Else
    If test_codepage(myOlMail) = "1251" Then
            Set myforward = myOlMail.Forward
            str_text = "согласовано" '"согласовано" при windows-1251
        If myOlMail.BodyFormat = olFormatHTML Then
        myforward.HTMLBody = str_text & vbCr & vbCr & vbCr & myOlMail.HTMLBody
        Else
            If myOlMail.BodyFormat = olFormatPlain Then
                myforward.Body = str_text & vbCr & vbCr & vbCr & myforward.Body
            End If
        End If
        myforward.Recipients.Add komu
        myforward.Send
    Else
        MsgBox "Какие-то проблемы с кодировкой сообщения", vbCritical, "Не отправлено"
    End If
End If
Next myOlMail
End Sub


Function test_codepage(ByVal test_myOlMail) As Integer

'попытка определить кодировку исходящих сообщений
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
'Dim test_myOlMail As Outlook.MailItem
'Dim myOlSel As Outlook.Selection

Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
'1251 - windows
'20866 - koi8-r
    test_codepage = test_myOlMail.InternetCodepage
End Function

...

Рейтинг:

0 / 0

10.11.2004, 07:13:48

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

Об управлении MS Outlook

#32774605

Galustov

Гость

Прочитал на одном из иностранных сайтов, что фишку с выскакивающим предупреждением, которое стоит 5 секунд никак не обойти...

В связи с этим ставлю задачу целиком: необходимо переслать выбранные письма (одновременно может быть выбрано сколько угодно писем) и затем в тело сообщения добавить вначале слово "согласовано", ниже имеющийся текст сообщения и переслать на определённый адрес.
Все письма идут на один и тот же адрес (точнее на два адреса, которые всегда одни и те же)

Мне удалось сделать всё, кроме отключения этих дурацких предупреждений...
Теперь оказывается их нельзя отключить......

КАК БЫТЬ? Не заставлять же пользователя после каждого сообщения ждать 5 секунд и потом жать "Да"...это 100 сообщений он будет 500 секунд минимум отправлять, да ещё и кнопки давить.

...

Рейтинг:

0 / 0

10.11.2004, 07:21:41

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

Об управлении MS Outlook

#32774831

Galustov

Гость

Всё, я сделал.
Может и не очень красиво, но зато работает

Просто при формировании объекта myforward (см предыдущий пост) делаю myforward.display и потом sendkeys "^{ENTER}", true (true, чтобы клавиши обработались оутлуком) и всё.
Никакие окошки в таком случае по 5 секунд не висят, а пользователю необходимо один единственный раз дать доступ проге на 10 минут. Думаю, что этого вполне хватит чтобы отправить 100 сообщений, а если не хватит можно снова дать доступ и всё :)

Удачи

...

Рейтинг:

0 / 0

10.11.2004, 10:22:49

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Об управлении MS Outlook

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

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

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

start [/forum/topic.php?fid=45&msg=32773841&tid=1670462]:	0ms
get settings:	5ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	62ms
get topic data:	7ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	193ms

total:	326ms

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