Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Bukka
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Outlook VBA - перенос текста письма, созданного макросом
 
#
14.07.2017 11:27:43
Уважаемые специалисты,

скажите, пожалуйста, возможен ли перенос текста в тексте письма созданного через VBA:
Код
Private Sub CommandButton1_Click()
 On Error GoTo ErrHandler
     
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
     
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)
 
    With objEmail
        .to = "ExampleG@mail.com"
        .cc = Worksheets("Sheet2").Range("B5").Value
        .Subject = "example"
        .htmlbody = dear all please find file attached 
                          добрый день, прикладываю с этим письмом файл
    End With
     
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
         
ErrHandler:
    '
End Sub

для того, чтобы в конечном счете получить следующий текст письма:
Цитата
Dear all please find the file attached,
добрый день, прикладываю с этим письмом файл
 
Перейти    
Outlook VBA: название файла в текст письма, извлечение название файла
 
#
14.07.2017 09:49:31
Уважаемые специалисты, подскажите, пожалуйста, как извлечь название файла & ссылку на файл и добавить его в текст письма созданного через макрос кнопки отправки письма outlook из текущий книги:

Код
Private Sub CommandButton1_Click()
 On Error GoTo ErrHandler
    
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With objEmail
        .to = "ExampleG@mail.com"
        .cc = Worksheets("Sheet2").Range("B5").Value
        .Subject = "example"
        .htmlbody = прикладываю с этим письмом ссылку на файл: "полное название файла.xlsx" +прямая ссылка на этот файл в названии файла
    End With
    
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
        
ErrHandler:
    '
End Sub


т.е. чтобы в письме фигурировало:

прикладываю с этим письмом ссылку на рабочую книгу: project004328.xlsx
Изменено: Bukka - 14.07.2017 09:59:39
 
Перейти    
Извлечение значения ячейки в текст письма
 
#
30.05.2017 10:42:39
Уважаемые специалисты, подскажите, пожалуйста, как извлечь в текст письма значение из одной единственной ячейки текущего листа (в этой ячейке сцепляется текст из других ячеек)
Код
Private Sub CommandButton1_Click()
    On Error GoTo ErrHandler
    
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With objEmail
        .to = "A@A.com"
        .cc = "B@B.com"
        .Subject = "значение из ячейки текущего листа Sheet1!A15 "  <-----------------------------------------------------
        .Body = "test"
        .Display        ' DISPLAY MESSAGE.
    End With
    
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing       
ErrHandler:
    '
 
Перейти    
Вывести ссылку на книгу
 
#
30.05.2017 09:14:38
Уважаемые
специалисты,

подскажите, пожалуйста, как добавить в кнопку такую функцию,
чтобы среди выводимого в новом письме outlook текста указывалась гиперсылка на
текущий открытый файл

Код
Private Sub CommandButton1_Click()

    On Error GoTo ErrHandler
    
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With objEmail
        .to = "A@A.com"
        .cc = "B@B.com"
        .Subject = "Test message"
        .Body = "please open following Excel workbook: " !!!HYPERLINK HERE!!!
        .Display        ' DISPLAY MESSAGE.
    End With
    
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
        
ErrHandler:
    '
Изменено: Bukka - 30.05.2017 09:18:00
 
Перейти    
Макрос переноса значений на новый лист в новом формате
 
#
02.11.2014 07:51:12
Добрый день!
Прошу помочь мне с написанием макроса - знаний у меня в этой области, увы, никаких - без помощи не справиться.

На первом листе: таблица, куда вводятся значения (A3:A12; D3 :D 12; F3:F13) Плюс поле для даты и кнопка. На втором листе - база данных в формате ДАТА|Наименование.    Заполнять таблицу планирую каждый день, на протяжении многих месяцев -- без автоматизации обойтись тут никак нельзя!  :)        Прикладываю файл!
Изменено: Bukka - 02.11.2014 20:10:33
 
Перейти    
Страницы: 1
Наверх