Прескочи на основното съдържание

Как винаги да изпращате нов имейл от конкретен акаунт в Outlook?

Автор: Силувия Последна промяна: 2022-07-26

Да предположим, че сте създали няколко имейл акаунта във вашия Outlook, когато изпращате имейл в Outlook, имейл акаунтът, показан в полето От, зависи от това в кой акаунт сте в момента. Без значение в кой акаунт сте в момента, искате винаги да изпращате нови имейли от конкретен имейл акаунт, следният урок може да ви помогне, методът в този урок може да ви помогне.

Винаги изпращайте нов имейл от конкретен акаунт с VBA код

Раздел Office - Активирайте редактиране и сърфиране с раздели в Microsoft Office, правейки работата лесна
Kutools за Outlook - Увеличете Outlook със 100+ разширени функции за превъзходна ефективност
Увеличете своя Outlook 2021 - 2010 или Outlook 365 с тези разширени функции. Насладете се на цялостен 60-дневен безплатен пробен период и подобрете изживяването си с имейл!

стрелка син десен балонВинаги изпращайте нов имейл от конкретен акаунт с VBA код

Този VBA код може да ви помогне лесно да изпращате нови имейли от конкретен акаунт в Outlook. Моля, направете следното.

1. Моля, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения диалогов прозорец.

2. Разширете Project1 > Обекти на Microsoft Outlook като щракнете двукратно върху тях. И след това щракнете два пъти върху ThisOutlookSession за да отворите VbaProject.OTM диалогов прозорец.

3. Копирайте и поставете следния VBA код в диалоговия прозорец.

VBA: винаги изпращайте нов имейл от конкретен акаунт.

Public Sub NewBySpecAccount()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account name" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next
End Sub

4. Сега трябва да промените „Името на вашия акаунт” към имейл акаунта, на който искате винаги да изпращате нови имейли. Вижте екранна снимка:

5. След това натиснете F5 клавиш на клавиатурата, за да стартирате VBA кода.

6. След стартиране на кода на VBA, нов Събщение ще се появи прозорец, моля, напишете своя имейл и щракнете Изпрати бутон, за да го изпратите.

Забележка: Този VBA код е успешно тестван в Outlook 2007, 2010 и 2013, но не се изпълнява в Exchange 2007 и 2010.

 


Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове ProПакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове  /   Антифишинг имейли  /  🕘Показване на часовата зона на подателя ...

👩🏼‍🤝‍👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли  /  Разделете група контакти на отделни групи  /  Премахнете напомнянията за рожден ден ...

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

 

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code does not work if you have multiple Exchange accounts defined in your profile - pointing to different exchange servers.

In that case you need a variation on this code from Microsoft.

https://learn.microsoft.com/en-us/office/vba/outlook/concepts/accounts/create-a-sendable-item-for-a-specific-account-based-on-the-current-folder-outloo
This comment was minimized by the moderator on the site
Hi, the "VBA: always send a new email from specific account." does not work. If you want to send email from Excel, you have to change Outlook settings. Outlook - File - Account settings. Here you have to prioritise different email and different datafiles you have access to besides your usual account (email). This will work even if Outlook is closed then. (W10, O365)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations