Μετάβαση στο κύριο περιεχόμενο

Πώς να στέλνετε πάντα ένα νέο email από συγκεκριμένο λογαριασμό στο Outlook;

Αν υποθέσουμε ότι έχετε δημιουργήσει πολλούς λογαριασμούς email στο Outlook σας, όταν στέλνετε ένα email στο Outlook, ο λογαριασμός email που εμφανίζεται στο πεδίο Από εξαρτάται από τον λογαριασμό στον οποίο βρίσκεστε αυτήν τη στιγμή. Ανεξάρτητα από τον λογαριασμό στον οποίο βρίσκεστε αυτήν τη στιγμή, θέλετε να στέλνετε πάντα νέο email από έναν συγκεκριμένο λογαριασμό email, το παρακάτω σεμινάριο μπορεί να σας βοηθήσει, η μέθοδος σε αυτό το σεμινάριο μπορεί να σας βοηθήσει.

Πάντα στέλνετε ένα νέο email από συγκεκριμένο λογαριασμό με κωδικό VBA

Καρτέλα Office - Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Microsoft Office, κάνοντας την εργασία άνετη
Kutools for Outlook - Ενισχύστε το Outlook με 100+ προηγμένες δυνατότητες για ανώτερη απόδοση
Ενισχύστε το Outlook 2021 - 2010 ή το Outlook 365 με αυτές τις προηγμένες δυνατότητες. Απολαύστε μια ολοκληρωμένη δωρεάν δοκιμή 60 ημερών και αναβαθμίστε την εμπειρία ηλεκτρονικού ταχυδρομείου σας!

βέλος μπλε δεξιά φούσκαΠάντα στέλνετε ένα νέο email από συγκεκριμένο λογαριασμό με κωδικό VBA

Αυτός ο κωδικός VBA μπορεί να σας βοηθήσει να στείλετε εύκολα νέα μηνύματα ηλεκτρονικού ταχυδρομείου από συγκεκριμένο λογαριασμό στο Outlook. Κάντε τα εξής:

1. Πατήστε άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές κουτί διαλόγου.

2. Αναπτύξτε το Project1 > Αντικείμενα του Microsoft Outlook κάνοντας διπλό κλικ σε αυτά. Και μετά κάντε διπλό κλικ στο Αυτό το OutlookSession για να ανοίξετε το VbaProject.OTM κουτί διαλόγου.

3. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο διαλόγου.

VBA: στέλνετε πάντα ένα νέο email από συγκεκριμένο λογαριασμό.

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. Τώρα πρέπει να αλλάξετε το "Το όνομα του λογαριασμού σας"Στον λογαριασμό email που θέλετε να στέλνετε πάντα νέα email. Δείτε το στιγμιότυπο οθόνης:

5. Στη συνέχεια, πατήστε F5 πληκτρολογήστε το πληκτρολόγιο για να εκτελέσετε τον κωδικό VBA.

6. Μετά την εκτέλεση του κώδικα VBA, ένας νέος Μήνυμα θα εμφανιστεί το παράθυρο, συνθέστε το email σας και κάντε κλικ Αποστολή κουμπί για να το στείλετε.

Note: Αυτός ο κώδικας VBA έχει δοκιμαστεί επιτυχώς στο Outlook 2007, 2010 και 2013, αλλά δεν εκτελείται στο Exchange 2007 και 2010.

 


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 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