Salt la conținutul principal

Cum să trimiteți întotdeauna un e-mail nou dintr-un anumit cont în Outlook?

Presupunând că ați creat mai multe conturi de e-mail în Outlook, atunci când trimiteți un e-mail în Outlook, contul de e-mail afișat în câmpul De la De la depinde de contul în care vă aflați în prezent. Indiferent de contul în care vă aflați în prezent, doriți să trimiteți întotdeauna noi e-mailuri dintr-un anumit cont de e-mail, următorul tutorial vă poate ajuta, metoda din acest tutorial vă poate ajuta.

Trimiteți întotdeauna un e-mail nou dintr-un anumit cont cu cod VBA

Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză
Kutools pentru Outlook - Îmbunătățiți Outlook cu peste 100 de caracteristici avansate pentru o eficiență superioară
Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de o perioadă de încercare gratuită cuprinzătoare de 60 de zile și îmbunătățiți-vă experiența prin e-mail!

săgeată albastru dreapta balonTrimiteți întotdeauna un e-mail nou dintr-un anumit cont cu cod VBA

Acest cod VBA vă poate ajuta să trimiteți cu ușurință e-mailuri noi dintr-un anumit cont în Outlook. Vă rugăm să faceți următoarele.

1. Vă rugăm să apăsați Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații căsuță de dialog.

2. Extindeți Project1 > Obiecte Microsoft Outlook făcând dublu clic pe ele. Și apoi faceți dublu clic pe Această sesiune Outlook pentru a deschide VbaProject.OTM căsuță de dialog.

3. Copiați și lipiți codul VBA de mai jos în caseta de dialog.

VBA: trimiteți întotdeauna un e-mail nou dintr-un anumit cont.

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. Acum trebuie să schimbați „Numele contului dvs.”Către contul de e-mail pe care doriți să îl trimiteți întotdeauna e-mailuri noi. Vedeți captura de ecran:

5. Apoi apăsați F5 tasta de pe tastatură pentru a rula codul VBA.

6. După rularea codului VBA, un nou Mesaj fereastra va apărea, vă rugăm să compuneți e-mailul și faceți clic Trimiteți pentru a-l trimite.

notițe: Acest cod VBA a fost testat cu succes în Outlook 2007, 2010 și 2013, dar nu se execută în Exchange 2007 și 2010.

 


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

 

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