У меня уже работает код, который может отправлять электронную почту через 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