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
- Automatizați e-mailurile cu Auto CC / BCC, Auto înainte prin reguli; trimite Răspuns automat (În afara biroului) fără a necesita un server de schimb...
- Primiți mementouri ca Avertisment BCC când răspundeți la toate în timp ce vă aflați în lista BCC și Amintiți-vă când lipsesc atașamentele pentru atașamente uitate...
- Îmbunătățiți eficiența e-mailului cu Răspunde (toate) cu atașamente, Adăugați automat salutul sau data și ora în semnătură sau subiect, Răspunde la mai multe e-mailuri...
- Simplificați e-mailurile cu Rechemare e-mailuri, Instrumente de atașare (Comprimați toate, Salvați automat toate...), Eliminați duplicatele, și Raport rapid...
Trimiteț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 Pro: Salvaț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.