Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 08.04.2016
Сообщений: 26
1

Отправка почты с нужной учетной записи с Outlook

23.05.2016, 09:58. Просмотров 1047. Ответов 1
Метки нет (Все метки)

Привет. Подскажите пожалуйста, как можно настроить данный макрос, чтобы он в outlook (где несколько учетных записей) выбирал необходимый, для отправки почты.

PureBasic
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
Sub Письмо1()
 
 Application.ScreenUpdating = False
    Sheets("КП").Select
    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim rng As Range 
    
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Nothing
    Set rng = ActiveSheet.Range(Cells(1, 1), Cells(iLastRow, 11))
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
 
      .To = ""
      .Subject = ""
    For i = 9 To 130
        If Sheets("КП").Cells(i, 26) <> "" Then
            .Attachments.Add Cells(i, 26).Value
        End If
    Next i
     
        .HTMLBody = ""
        .Attachments.Add sFileName
        .Display
    End With
    On Error GoTo 0
  
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
    Sheets("Расчет").Select
    Range("D7").Select
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2016, 09:58
Ответы с готовыми решениями:

Checkbox и отправка почты через outlook
Всем привет. Благодаря вам усовершенствовал свою форму в excel. И это реально облегчило жизнь...

Отправка почты через Outlook без подтверждения
Помогите, пожалуйста. Уже кучу времени пытаюсь найти ответы... Проблемы: 1) В MS Outlook сделал...

Выбор учётной записи в Outlook при отправке почты из Excel
Добрый день. Что-то не могу выиграть отправку почты. Есть Dim OutApp As Object Dim...

Извлечь почты из писем в outlook
Всем привет, подскажите пожалуйста, есть ли возможность извлечь все почты из писем в определенной...

1
1 / 1 / 0
Регистрация: 08.04.2016
Сообщений: 26
24.05.2016, 19:40  [ТС] 2
Проблема не актуальна.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2016, 19:40

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

ФИО пользователя учетной записи
Добрый день! Подскажите как выцепить ФИО пользователя из учетной записи. Environ возвращает логин...

Автовыбор учетной записи в VBA
Всем привет! Подскажите каким образом можно при отправле почты сменить учетную запись. Дело в...

Отправка почты с использованием доменной учетной записи
Добрый день. Администраторы сети сделали мне большую подляну. Закрывают анонимную отправку через...

Миграция параметров учетной записи с MS Outlook 2003 в MS Outlook 2013
Доброго времени суток, Вопрос: я пользовался MS Outlook 2003, и в нем, у меня были...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.