В настоящее время я использую следующий код VBA в Excel для MAC 2016:
- WordPad is a basic word-processing program that you can use to create and edit documents. Unlike Notepad, WordPad allows you to include text with formatting-such as italic, bold, and underline-as.
- WordPad is a basic word-processing program that you can use to create and edit documents. Unlike Notepad, WordPad allows you to include text with formatting-such as italic, bold, and underline-as.
Он отлично работает для отправки по электронной почте текущего листа через Outlook.
Проблема, с которой я сталкиваюсь, заключается в том, что я хочу, чтобы фокус возвращался к листу Excel. Сейчас происходит то, что появляется экран Outlook вместе с новым письмом. После нажатия отправки новый экран электронной почты уходит, но основное окно Outlook остается.
Polaris Office 9.112.043.41530 Multilingual 245.3 Mb Polaris Office is the only solution for opening and editing all kinds of documents. Edit any Microsoft Office, PDF, TXT, or other document formats with Polaris Office without having to install any other applications.
Как настроить фокус на Excel?
Я обнаружил, что решение заключается в использовании Applescript для достижения желаемого эффекта. Вот весь скрипт: ption Явный
Sub MailWorkSheet ()
End Sub
Функция MailWithMac (subject As String, mailbody As String, _ toaddress As String, ccaddress As String, _ bccaddress As String, displaymail As Boolean, _ accounttype As String, имя учетной записи As String, _ attachment As String, FileFormat As Long)
Конечная функция
Функция CheckScript (ScriptFileName As String) как логическая
Конечная функция
Функция KillFile (Filestr As String)
Free Office For Mac
Конечная функция
Applescript:
на CreateMailInOutlook (paramString) установите {fieldValue1, fieldValue2, fieldValue3, fieldValue4, fieldValue5, fieldValue6, fieldValue7, fieldValue8, fieldValue9} в SplitString (paramString, ';'), сообщите приложению 'Microsoft Outlook', если fieldValue7 = 'pop', затем установите значениеAccount для первая учетная запись pop, чье имя – fieldValue8, устанавливает NewMail (сделать новое исходящее сообщение со свойствами {subject: fieldValue1, content: fieldValue2, account: theAccount}) else, если fieldValue7 = 'imap' затем установить Account в первую учетную запись imap, имя которой fieldValue8 установить NewMail (создать новое исходящее сообщение со свойствами {subject: fieldValue1, content: fieldValue2, account: theAccount}) else установить NewMail (сделать новое исходящее сообщение со свойствами {subject: fieldValue1, content: fieldValue2}) end if tell NewMail повторите с toRecipient в моем SplitString (fieldValue3, ','), чтобы новый получатель получал в конце получателям со свойствами {адрес электронной почты: {адрес: содержимое toRecipient}} end repeat repeat with toRecipient в моем SplitString (fieldValue4, ',') сделать новый для получателя в конце cc получателей со свойствами {адрес электронной почты: {адрес: содержимое toRecipient}} end repeat repeat with toRecipient в моем SplitString (fieldValue5, ',') сделать новый получателю в конце bcc-получателей со свойствами {адрес электронной почты: {адрес: содержимое toRecipient}} end repeat сделать новое вложение со свойствами {file: POSIX file fieldValue9 как псевдоним}
end CreateMailInOutlook
Office For Mac Free Trial
на SplitString (TheBigString, fieldSeparator) сообщите AppleScript set oldTID, чтобы разделители текстовых элементов устанавливали разделители текстовых элементов в fieldSeparator, чтобы установить тег на текстовые элементы в тегах с разделителями текстовых элементов TheBigString до конца oldTID, верните конецItems SplitString
Free Office For Mac Download
на Mini () скажите приложению «Microsoft Outlook» сказать (окна, чей идентификатор нет (получить идентификатор переднего окна) и видимый – true) установить миниатюрный в true end tell end tell end Mini