Przejdź do głównej zawartości

Jak zawsze wysłać nową wiadomość e-mail z określonego konta w Outlooku?

Przypuśćmy, że utworzyłeś wiele kont e-mail w programie Outlook, wysyłając wiadomość e-mail w programie Outlook, konto e-mail wyświetlane w polu Od zależy od tego, na którym koncie aktualnie się znajdujesz. Bez względu na to, na którym koncie aktualnie jesteś, chcesz zawsze wysyłać nowe wiadomości e-mail z określonego konta e-mail, poniższy samouczek może ci pomóc, metoda opisana w tym samouczku może ci pomóc.

Zawsze wysyłaj nową wiadomość e-mail z określonego konta z kodem VBA

Karta Office — włącz edycję i przeglądanie na kartach w pakiecie Microsoft Office, dzięki czemu praca stanie się o wiele łatwiejsza
Kutools dla programu Outlook - Zwiększ wydajność programu Outlook dzięki ponad 100 zaawansowanym funkcjom zapewniającym najwyższą wydajność
Ulepsz swój program Outlook 2021–2010 lub Outlook 365 dzięki tym zaawansowanym funkcjom. Skorzystaj z kompleksowego, 60-dniowego bezpłatnego okresu próbnego i usprawnij korzystanie z poczty e-mail!

strzałka niebieski prawy bąbelekZawsze wysyłaj nową wiadomość e-mail z określonego konta z kodem VBA

Ten kod VBA może pomóc w łatwym wysyłaniu nowych wiadomości e-mail z określonego konta w programie Outlook. Wykonaj następujące czynności.

1. Proszę nacisnąć inny + F11 otworzyć Microsoft Visual Basic for Applications okno dialogowe.

2. Rozwiń Project1 > Obiekty programu Microsoft Outlook klikając je dwukrotnie. Następnie kliknij dwukrotnie plik Ta sesja programu Outlook otworzyć VbaProject.OTM okno dialogowe.

3. Skopiuj i wklej poniższy kod VBA w oknie dialogowym.

VBA: zawsze wysyłaj nową wiadomość e-mail z określonego konta.

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. Teraz musisz zmienić „Twoja nazwa konta”Na konto e-mail, na które chcesz zawsze wysyłać nowe e-maile. Zobacz zrzut ekranu:

5. Następnie naciśnij F5 klawisz na klawiaturze, aby uruchomić kod VBA.

6. Po uruchomieniu kodu VBA, nowy Wiadomość pojawi się okno, wpisz swój e-mail i kliknij Wyślij przycisk, aby go wysłać.

Note: Ten kod VBA został pomyślnie przetestowany w programach Outlook 2007, 2010 i 2013, ale nie jest wykonywany w programie Exchange 2007 i 2010.

 


Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki ProZapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

 

 

 

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