Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Открыть из Excel окно Outlook для отправки книги, макрос повторяющий кнопку отправить по электронной почте
 
#1
10.03.2016 10:39:27
Необходимо, программно сделать такую кнопку, чтобы открывался Outlook и там уже пользователь в привычном для себя виде вписывал адреса и нажимал кнопку отправить. Тоже что можно было бы сделать через "файл-общий доступ-отправить по электронной почте"
 
 
 
#2
10.03.2016 10:44:08
Проверить не могу, аутглюком не пользуюсь, но примерно так:
Код
    With CreateObject("Outlook.application")
        .Visible = -1
    End With
Я сам - дурнее всякого примера! ...
 
 
 
#3
10.03.2016 11:12:07
kuklp, не работает, и наверняка таким способо текущая книга не будет прикреплена к письму(
 
 
 
#4
10.03.2016 11:20:23
А точно макрос нужен?
Есть стандартная кнопка..
 
Когда я ем,я глух и нем, хитер и быстр, и дьявольски умен.
 
 
 
#5
10.03.2016 11:21:27
Код
Path = Thisworkbook.Path & Thisworkbook.Name
Set app = CreateObject("Outlook.Application")
Set mail = app.CreateItem(o)

With mail
.Attachments.Add (Path)
.Display
End with
 
 
 
#6
10.03.2016 11:26:29
Цитата
art013 написал:
наверняка таким способо текущая книга не будет прикреплена к письму
а про это Вы как-то забыли упомянуть :)
Как отправить письмо из Excel?

По сути весь код сводится к этому:
Код
    Dim objOutlookApp As Object, objMail As Object
 
    Application.ScreenUpdating = False
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    Err.Clear
    If objOutlookApp Is Nothing Then
        Set objOutlookApp = CreateObject("Outlook.Application")
    End If
    objOutlookApp.Session.Logon
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
    'если не получилось создать приложение или экземпляр сообщения - выходим
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
    
    objMail.Attachments.Add ActiveWorkbook.FullName
    'создаем сообщение
    objMail.Display
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
10.03.2016 11:29:58
Цитата
art013 написал: kuklp, не работает, и наверняка
Если сесть и ждать, что оно само заработает, то да. Так у Вас ничего и никогда работать не будет.
Я сам - дурнее всякого примера! ...
 
 
 
#8
18.03.2016 10:55:37
The_Prist, Ваш способ то что нужно!
Спасибо всем kuklp, U_M0KRH, MonsterBeer, за внимание к моей проблеме и простите что так долго отвечал)
 
 
 
Страницы: 1
Читают тему
Наверх