Excel в Outlook Предварительно написанный орган VBA

Question

У меня постоянно меняется список инвентаря (часто делаются новые добавления), для которого я пытаюсь написать подраздел, который будет работать с Outlook, чтобы отправить предварительно написанный ответ электронной почты. Из информации, которую я нашел в Интернете (например, полезный опыт Рона де Бруина), кажется, что это должно быть возможно, но я застрял в попытке выяснить, можно ли выполнять код всякий раз, когда гиперссылка электронной почты нажата в пределах Столбец H.

Например, у меня есть имя человека в столбце A, начиная с строки 3, и их электронная почта в столбце H, начиная с строки 3, которая автоматически форматируется как гиперссылка, которая открывает новое пустое сообщение в Перспективы. Я хотел посмотреть, можно ли применить макрос, который будет автоматически заполнять строку Subject и сообщение Body каждый раз, когда будет выбрана гиперссылка. Вот то, что я до сих пор:

Sub SendEmail() 

    Dim olApplication As Outlook.Application 

    Set olApp = CreateObject("Outlook.Application") 

    Dim olMail As Outlook.MailItem 

    Set olMail = olApp.CreateItem(olMailItem) 

    olMail.To= 
    olMail.Subject = "Subject Line" 
    olMail.Body = "This is the body of the e-mail" 
    olMail.Display 

End Sub 

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

Answer 1

Ответ на ваш вопрос: да.
Что вам нужно сделать, так это овладеть недавно открывшимся объектом Inspector Object в Outlook.
Помните, что когда вы нажмете на ссылку, она автоматически создаст MailItem.
Вам нужно завладеть вновь созданным объектом MailItem, чтобы вы могли манипулировать им.

Что-то вроде:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    On Error GoTo halt 
    Application.EnableEvents = False 

    Dim olApp As Outlook.Application 
    Dim olMail As Outlook.MailItem 

    Set olApp = GetObject(, "Outlook.Application") 

    Do While olApp.Inspectors.Count = 0 
     DoEvents 
    Loop 

    Set olMail = olApp.Inspectors.Item(1).CurrentItem 
    With olMail 
     .Subject = "I was able to change the subject" 
     .Body = "Dear " & Target.Range.Offset(0, -1).Value 
     .Display 
    End With 
forward: 
    Application.EnableEvents = True 
Exit Sub 
halt: 
    MsgBox Err.Description 
    Resume forward 
End Sub 

Примите к сведению, что вам нужно, чтобы связать Outlook, в Excel путем ссылки правильно.
Также обратите внимание, что Outlook должен быть открытым, иначе вам нужно добавить обработчик.
Это просто указывает на то, как вы получите доступ к новому созданному mailitem после ссылки на гиперссылку. HTH