Могу ли я использовать VBA для «подготовки» электронного письма к уже открытому электронному письму в Chrome? - PullRequest
0 голосов
/ 11 января 2020

У меня уже работает код, который может отправлять электронную почту через Outlook, и он отлично работает. Теперь мне нужно, чтобы моя личная электронная почта была открыта через chrome или IE (предпочтительно chrome), и чтобы мой код вставлял адреса электронной почты в поле To :, вставьте тему в тему :, вставьте тело письма , а затем начните прикреплять файлы. Я должен быть в состоянии проверить всю информацию перед отправкой электронного письма, потому что жизненно важно, чтобы вся информация была правильной.

Я гуглил кучу вещей и, похоже, могу только найти, как настраиваю твой адрес электронной почты через VBA, и он делает это в фоновом режиме. Кажется, я не могу найти ничего, что могло бы взаимодействовать с моим адресом электронной почты, уже открытым через chrome (это адрес электронной почты outlook, если это имеет значение). Любая помощь приветствуется. Вот часть моего текущего кода:

OfficeUserName = Application.UserName

TempFilePath = Environ$("temp") & "\"
TempFileName = OfficeUserName & " Vacation Request"

If Val(Application.Version) < 12 Then
    'You use Excel 97-2003
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    'You use Excel 2007-2016
    FileExtStr = ".xlsx": FileFormatNum = 51
End If

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Dest
    .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
    On Error Resume Next
    With OutMail
        .to = "User1@outlook.com"
        .CC = OfficeUserName
        .Subject = "Vacation Request"
        .Body = "Please See attached vacation request form"
        .Attachments.Add ("C:\test.txt")
        .Display
    End With
    On Error GoTo 0
End With

Kill TempFilePath & TempFileName & FileExtStr
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...