Note: The other languages of the website are Google-translated. Back to English

Πώς μπορείτε να στείλετε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook;

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

Στείλτε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook με κωδικό VBA

Εύκολη αποστολή προγραμματισμού επαναλαμβανόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook με ένα καταπληκτικό εργαλείο


Στείλτε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook με κωδικό VBA

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

Μέρος 1: Δημιουργήστε ένα νέο ραντεβού

1. Μεταβείτε στο Ημερολόγιο προβολή κάνοντας κλικ Ημερολόγιο στο Παράθυρο περιήγησηςκαι, στη συνέχεια, δημιουργήστε ένα νέο ραντεβού κάνοντας κλικ Νέο ραντεβού υπό Αρχική Tab.

3. Στο Ραντεβού διαλόγου κάτω Ραντεβού αυτί. Πρέπει να:

Α: Πληκτρολογήστε το Θέμα Β: Εισαγάγετε τις διευθύνσεις email των παραληπτών στο Τοποθεσία
C: Διαμορφώστε το Ώρα έναρξης και το Ώρα λήξης D: Επιλέξτε την υπενθύμιση κάτω από το υπενθύμιση Αναπτυσσόμενη λίστα.
Εάν επιλέξετε 15 λεπτά, αυτό σημαίνει ότι θα σας υπενθυμίσει 15 λεπτά νωρίτερα κατά την αποστολή του email.
Ε: Συνθέστε το σώμα ραντεβού σας.

Note: Ο Θέμα ραντεβού θα γίνει το επαναλαμβανόμενο θέμα ηλεκτρονικού ταχυδρομείου. και το Σώμα διορισμού θα γίνει το επαναλαμβανόμενο σώμα email όταν οι παραλήπτες έλαβαν το email.

Μέρος 2: Δημιουργήστε μια νέα κατηγορία

Τώρα πρέπει να δημιουργήσετε μια νέα κατηγορία με το όνομα "Αποστολή προγραμματισμένου επαναλαμβανόμενου email" ως εξής:

1. Στο Ραντεβού διαλόγου, κάντε κλικ Ταξινομώ > Όλες οι κατηγορίες στο Ετικέτες ομάδα κάτω Ραντεβού Tab.

2. Οταν ο Κατηγορίες χρωμάτων αναδυόμενο παράθυρο διαλόγου, κάντε κλικ Νέο κουμπί. Στο Προσθήκη νέας κατηγορίας διαλόγου, πληκτρολογήστε "Αποστολή προγραμματισμένου επαναλαμβανόμενου email" στο Όνοματεπώνυμο πεδίο; και στη συνέχεια επιλέξτε ένα χρώμα στο Χρώμα αναπτυσσόμενη λίστα. Στη συνέχεια κάντε κλικ στο κουμπί OK.

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

Μέρος 3: Ρυθμίστε την επανάληψη

Τώρα, είναι καιρός να ρυθμίσετε την επανάληψη για το ραντεβού.

1. κλικ Επανάληψη στο Επιλογές ομάδα κάτω Ραντεβού αυτί. Δείτε το στιγμιότυπο οθόνης:

2. Στο Επανάληψη ραντεβού διαλόγου, διαμορφώστε το Επανάληψη πρότυπο. Εάν χρειάζεστε ώρα λήξης, διαμορφώστε την κάτω Εύρος επανάληψης. Και στη συνέχεια κάντε κλικ στο κουμπί OK.

3. Όταν επιστρέψει στο Ραντεβού διαλόγου, κάντε κλικ Αποθήκευση & Κλείσιμο κουμπί. Δείτε το στιγμιότυπο οθόνης:

Μέρος 4: Χρησιμοποιήστε τον κωδικό VBA για την αποστολή του επαναλαμβανόμενου μηνύματος ηλεκτρονικού ταχυδρομείου

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

2. Κάντε διπλό κλικ στο Project1 > Αντικείμενο Microsoft Outlook > Αυτό το OutlookSession στο αριστερό παράθυρο. Δείτε το στιγμιότυπο οθόνης:

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

VBA: αποστολή επαναλαμβανόμενου email για το πρόγραμμα

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. κλικ Εργαλεία > αναφορές για να ανοίξετε το αναφορές - Εργο διάλογος. Στο παράθυρο διαλόγου, επιλέξτε το Βιβλιοθήκη αντικειμένων του Microsoft Word και κάντε κλικ στο OK κουμπί.

5. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Όταν ο υπενθύμιση αναδυόμενο, το email θα σταλεί αυτόματα στους παραλήπτες που έχετε πληκτρολογήσει στο πεδίο Τοποθεσία στο πρώτο μέρος. Στη συνέχεια κάντε κλικ να απορρίψει στο υπενθύμιση διάλογος. Και το email θα αποστέλλεται επαναλαμβανόμενα κάθε μέρα αυτή τη στιγμή. Δείτε το στιγμιότυπο οθόνης:

Note: Ο κώδικας VBA δοκιμάστηκε με επιτυχία στο Outlook 2010 και στις νεότερες εκδόσεις.


Εύκολη αποστολή προγραμματισμού επαναλαμβανόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook με ένα καταπληκτικό εργαλείο

Για πολλούς χρήστες του Outlook, η παραπάνω μέθοδος είναι πολύ κουραστική για να χειριστεί σωστά. Εδώ συνιστώ ανεπιφύλακτα το Προγραμματισμός αυτόματης αποστολής χαρακτηριστικό του Kutools για το Outlook. Με αυτήν τη λειτουργία, μπορείτε εύκολα να δημιουργήσετε πολλαπλά επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου και να προγραμματίσετε την τακτική αποστολή αυτών των μηνυμάτων ηλεκτρονικού ταχυδρομείου σε καθημερινά, εβδομαδιαία, μηνιαία ή ετήσια διαστήματα, όπως χρειάζεστε. Κάντε τα εξής για να το κάνετε.

Πηγαίνετε στο κατεβάστε το Kutools για το Outlook και δοκιμάστε.

1. κλικ Kutools > Προγραμματισμός αυτόματης αποστολής > Δημιουργία προγράμματος αυτόματης αποστολής.

2. Στη συνέχεια, ανοίγει ένα παράθυρο μηνύματος και πρέπει:

2.1) Επιλέξτε τους παραλήπτες email στο Προς, Cc or Bcc πεδία όπως χρειάζεστε και, στη συνέχεια, συμπληρώστε το μήνυμα ηλεκτρονικού ταχυδρομείου θέμα;
2.2) Σύνταξη του σώματος email
2.3) Κάντε κλικ στο κουμπί Επανάληψη σύμφωνα με το Kutools Επαναλαμβανόμενο αυτί. Δείτε το στιγμιότυπο οθόνης:

3. Τώρα το Επανάληψη μηνυμάτων ηλεκτρονικού ταχυδρομείου εμφανίζεται το παράθυρο διαλόγου, πρέπει να καθορίσετε το επαναλαμβανόμενος χρόνος, επαναλαμβανόμενο μοτίβο και το εύρος υποτροπής για το μήνυμα ηλεκτρονικού ταχυδρομείου και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

4. Τώρα επιστρέφει στο παράθυρο του μηνύματος, κάντε κλικ Αποθήκευση & Κλείσιμο κουμπί για να αποθηκεύσετε τις επαναλαμβανόμενες ρυθμίσεις και να κλείσετε το παράθυρο.

Συμβουλές: Μπορείτε να επαναλάβετε τα παραπάνω βήματα 1 έως 4 για να δημιουργήσετε πολλά επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου όπως χρειάζεστε.

5. Τώρα ενεργοποιήστε τη λειτουργία κάνοντας κλικ Kutools > Προγραμματισμός αυτόματης αποστολής > Επιτρέπω.

6. Στο άνοιγμα Kutools για το Outlook , κάντε κλικ στην επιλογή Εντάξει.

Μετά την ολοκλήρωση των παραπάνω ρυθμίσεων, τα επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου θα αποστέλλονται αυτόματα όταν φτάσει η καθορισμένη ημερομηνία και ώρα.

Σημείωση: Μπορείτε εύκολα να διαχειριστείτε τα επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου σας ως εξής.

1. κλικ Kutools > Προγραμματισμός αυτόματης αποστολής > Διαχειριστείτε το πρόγραμμα αυτόματης αποστολής.

2. Στο Πρόγραμμα αυτόματης αποστολής Mange παράθυρο, μπορείτε να δημιουργήσετε νέος επαναλαμβανόμενο email, επεξεργασία, διαγραφή, ανάβω or off ένα υπάρχον επαναλαμβανόμενο email όπως χρειάζεστε. Or μπορείτε να κάνετε κλικ στο Σύνδεση εικονίδιο για προβολή του ιστορικού αποστολής των επαναλαμβανόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου.

Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα.

  Kutools για το Outlook περιλαμβάνει 100+ ισχυρές δυνατότητες για το Microsoft Outlook. Δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. Κατεβάστε τώρα!


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (171)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η μέθοδος βοήθησε. Λειτούργησε για το πρώτο ραντεβού που δημιουργήθηκε όταν το δοκίμαζα. Αλλά μετά σταμάτησε να λειτουργεί αργότερα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είχα το ίδιο πρόβλημα, έχω επαναλάβει τα βήματα πολλές φορές και τώρα δεν λειτουργεί καθόλου, δεν αποστέλλονται μηνύματα ηλεκτρονικού ταχυδρομείου ή τίποτα. Καταφέρατε να το διορθώσετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, μπόρεσα να δημιουργήσω ένα επαναλαμβανόμενο μήνυμα ηλεκτρονικού ταχυδρομείου ακολουθώντας τα παραπάνω βήματα, αλλά όταν δημιούργησα μια υπερ-σύνδεση στο σώμα μιας συνάντησης, όταν ενεργοποιήθηκε το συμβάν και έλαβα ένα μήνυμα στην αλληλογραφία, ο υπερσύνδεσμος μετατράπηκε σε σύνδεσμο Raw. Οποιαδήποτε βοήθεια εκτιμάται, Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ! Αυτό λειτούργησε. Υπάρχει τρόπος να συμπεριληφθεί ένα συνημμένο στο email που αποστέλλεται; Δοκίμασα μια δοκιμή με την προσθήκη του συνημμένου στο συμβάν ημερολογίου, αλλά δεν εμφανίζεται στο email.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
λάβατε ποτέ μια απάντηση για το πώς να προσθέσετε ένα συνημμένο; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πήρα αυτό για να λειτουργήσει για το δοκιμαστικό email, αλλά τώρα δεν κάνει τίποτα, και έχω διαγράψει τα πάντα και επαναλαμβάνω τα βήματα, υπάρχει κάτι περισσότερο σε αυτό; Είμαι και στο outlook 2013
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είχα το ίδιο πρόβλημα. Αυτό λειτούργησε την πρώτη φορά, αλλά η επαναλαμβανόμενη υπενθύμιση ραντεβού δεν φαίνεται να ενεργοποίησε το μήνυμα ηλεκτρονικού ταχυδρομείου. Έχει βρει κανείς λύση σε αυτό το πρόβλημα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Πήρα αυτό για να λειτουργήσει για το δοκιμαστικό email, αλλά τώρα δεν κάνει τίποτα, και έχω διαγράψει τα πάντα και επαναλαμβάνω τα βήματα, υπάρχει κάτι περισσότερο σε αυτό; Είμαι και στο outlook 2013Από το Wonderful[/quote] Το επιλύσατε ποτέ αυτό; Μόλις το ρύθμισα και βλέπω το ίδιο πράγμα που κάνατε. Δούλεψε τέλεια την πρώτη φορά και μετά τίποτα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το τακτοποίησα τελικά ενεργοποιώντας τις μακροεντολές στο Outlook το οποίο από προεπιλογή είναι απενεργοποιημένο. Το μόνο πρόβλημα που έχω τώρα είναι ότι το κείμενο στο e-mail είναι μόνο απλό κείμενο, δεν εμφανίζεται έντονη γραφή, αλλαγή μεγέθους γραμματοσειράς ή χρώματος κ.λπ. Υπάρχει κάποιος τρόπος να αλλάξετε τον παραπάνω κώδικα ώστε να έχετε κείμενο RTF ή HTML στο e-mail;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Το έλυσες αυτό. Έχω το ίδιο πρόβλημα Το δοκίμασα, αλλά δεν λειτουργεί. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.Gety,Bonding,No. = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Τότε mailFormat = 2 mail.GetType().InvokeMember("BodyFormat.SBindingFtylae", _Refltylae. Nothing, mail, New Object() {mailFormat}) End Sub Private Sub Application_Reminder(ByVal Item As Object) Dim MItem As MailItem Set MItem = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Τότε βγείτε από το Sub Item .Κατηγορίες "Send Schedule Recurring Email" Έπειτα Έξοδος Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Nothing End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Το τακτοποίησα τελικά ενεργοποιώντας τις μακροεντολές στο Outlook το οποίο από προεπιλογή είναι απενεργοποιημένο. Το μόνο πρόβλημα που έχω τώρα είναι ότι το κείμενο στο e-mail είναι μόνο απλό κείμενο, δεν εμφανίζεται έντονη γραφή, αλλαγή μεγέθους γραμματοσειράς ή χρώματος κ.λπ. Υπάρχει κάποιος τρόπος να αλλάξετε τον παραπάνω κώδικα ώστε να έχετε κείμενο RTF ή HTML στο e-mail;Από τον Kyle[/quote] Γεια Βρήκατε μια λύση για αυτό; Το χρειάζομαι :) Kim
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε επίσης να χρησιμοποιήσετε τον Προγραμματιστή εργασιών των Windows για κάτι τέτοιο. Είναι εύκολο στη χρήση και μπορεί να χειριστεί ακόμη και εξαρτήματα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπάθησα με task αλλά δεν κερδίζω τίποτα αφού το συνημμένο δεν πηγαίνει στο σώμα του email. Παρακαλώ ενημερώστε πώς το κάνατε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ποιον κωδικό χρησιμοποιείτε; Δεν επισύναψε στο email τα συνημμένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πως το σβηνεις?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Από την κορυφή του κεφαλιού μου, για να σταματήσετε να στέλνετε το επαναλαμβανόμενο e-mail, μπορείτε: 1. Να διαγράψετε εντελώς το ραντεβού. 2. Αλλάξτε ή αφαιρέστε την κατηγορία που έχει οριστεί. 3. Εφαρμόστε μια Ημερομηνία «Λήξης Έως» στην Επανάληψη του Ραντεβού.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρειάζεται να έχετε ανοιχτό / εκτελούμενο το Outlook για να στείλετε το επαναλαμβανόμενο μήνυμα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί αυτός ο κώδικας με το Office 365 - Outlook 2013; Έχω ακολουθήσει τα βήματα αρκετές φορές, έχω ενεργοποιήσει και τις μακροεντολές. Λαμβάνω την υπενθύμιση και πατάω την απόρριψη αλλά τα email δεν στέλνονται ποτέ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, ελέγξτε αυτό - νομίζω ότι θα σας αρέσει πολύ αυτή η δυνατότητα. Δεν υπάρχουν άλλα εβδομαδιαία πρότυπα email
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος αποστολής στη λίστα διανομής στις επαφές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ναι Aaron, έπρεπε να το κάνω μόνος μου. Προσπάθησα να προσθέσω μια λίστα διανομής (ομάδα επαφών του Outlook) που ονομάζεται "Spec Group". Αυτό δεν έστειλε. Ωστόσο, άλλαξα το όνομα της λίστας σε 'Spec@Group' (για να φαίνεται σαν μια πραγματική διεύθυνση e-mail) και αυτό λειτούργησε τέλεια. Πρέπει να χρειάζεται το '@' για να παραληφθεί. Τυχερή μαντεψιά! :χαχαχα:
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτούργησε καλά. Τώρα χρειάζομαι το ίδιο email για να πάω σε πολλές ομάδες. Μπορεί κανείς να βοηθήσει; Private Sub Application_Reminder(ByVal Item As Object) Dim CF As Folder Set CF = Application.Session.GetDefaultFolder(olFolderContacts) Dim DLI As DistListItem Σετ DLI = CF.Items("GDL Group 1") Dimplication.Session.GetDefaultFolder(olFolderContacts) CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Τότε Exit Sub If Item.Categories "Recurring GDL Recert Email" Στη συνέχεια, Exit Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Send Set MItem = Nothing End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δημιουργήστε μια άλλη λίστα διανομής που περιέχει/δείχνει τις άλλες λίστες διανομής που έχετε ήδη ρυθμίσεις και θέλετε να συμπεριλάβετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να προγραμματίσετε την αποστολή ενός email στο Outlook όταν ο υπολογιστής έχει φύγει. Για παράδειγμα, θα ήθελα να στείλω μια υπενθύμιση ραντεβού την Κυριακή για μια συνάντηση τη Δευτέρα, αλλά δεν είμαι στη δουλειά τις Κυριακές, οπότε πώς μπορώ να λάβω αυτό το email για να βγω την Κυριακή όταν δεν είμαι στη δουλειά και ο υπολογιστής μου είναι μακριά από? Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός VBA δεν εμφανίστηκε όταν πάτησα ALT & F11. Κατάφερα να ανακτήσω τη Microsoft Visual Basic για εφαρμογές, αλλά δεν υπήρχε κώδικας. Μπορείτε σας παρακαλώ να με συμβουλεύσετε; Ευχαριστώ, Raj
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Raj, δεν πρέπει να υπάρχει κωδικός VBA. Εάν ακολουθήσετε τον παραπάνω οδηγό, όταν κάνετε διπλό κλικ στο "ThisOutlookSession", υποτίθεται ότι είναι κενό. Πρέπει να αντιγράψετε και να επικολλήσετε τον κώδικα που εμφανίζεται στον οδηγό στο παράθυρο "ThisOutlookSession" και στη συνέχεια να τον αποθηκεύσετε. Ελπίζω ότι αυτό βοηθά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, όταν ακολουθήσω όλα τα βήματα και αποθηκεύσω και πάω να κάνω ένα άλλο email - ο κωδικός είναι ακόμα εκεί από την προηγούμενη φορά. Έχει επιλεγεί ο κωδικός που επισυνάπτεται στην κατηγορία, επομένως δεν χρειάζεται να προσθέσετε τον κωδικό για κάθε email;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Bonnie, ο κωδικός VBA χρειάζεται να προστεθεί μόνο μία φορά (για το πρώτο επαναλαμβανόμενο e-mail). Εάν ρυθμίσετε περισσότερα από ένα επαναλαμβανόμενα e-mail, απλώς παραλείψτε αυτό το βήμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω office 2016 και το δοκίμασα, ακολουθώντας ακριβώς τις οδηγίες σου. Δούλεψε!! Σε ευχαριστώ πάρα πολύ. Έπρεπε να αλλάξω τις ρυθμίσεις ασφαλείας μακροεντολών στο Outlook 2016 και το πρόγραμμα επεξεργασίας VBA για να λειτουργήσει, αλλά μόλις αυτό έγινε, οι οδηγίες έρεαν εύκολα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Πώς αλλάξατε τις ρυθμίσεις ασφαλείας μακροεντολών στο Outlook και σε τι τις αλλάξατε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δύο πράγματα λοιπόν, το ένα δεν εμφανίζεται όπως το έγραψα, δηλαδή δεν υπάρχουν έντονοι χαρακτήρες και δύο πώς μπορώ να προσθέσω μια υπογραφή; γιατί εμφανίζεται ως υπερσύνδεσμος αντί για την κανονική μου υπογραφή. Ευχαριστώ για τη βοήθεια.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο Alex Mine εμφανίζεται με τη μορφοποίηση απογυμνωμένη επίσης. Πώς το κρατάμε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έστειλε μια χαρά, αλλά έπεσε όλη η φανταχτερή μορφοποίηση που έχω στο σώμα του email μου. Πώς μπορώ να το πετύχω για να διατηρήσει αυτή τη μορφοποίηση;;;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πρέπει να μάθω πώς\ αν μπορείτε να επισυνάψετε ένα φύλλο spreed excel;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας παιδιά. Αυτός ο κώδικας λειτουργεί τέλεια αλλά έχω ένα μικρό πρόβλημα. Το email που προσπαθώ να στείλω ανήκει σε δύο κατηγορίες: Αποστολή μηνύματος (η μακροεντολή χρησιμοποιεί) και PROGRAMARI RED-TEAM. Η μακροεντολή λειτουργεί καλά όταν προσθέτω μόνο την κατηγορία Αποστολή μηνύματος, αλλά μόλις προστεθεί οποιαδήποτε άλλη κατηγορία, η μακροεντολή σταματά να στέλνει μηνύματα ηλεκτρονικού ταχυδρομείου. Εδώ είναι ο κωδικός μέχρι στιγμής. Παρακαλώ βοηθήστε :P Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem για παρακολούθηση για υπενθυμίσεις εργασιών If Item.MessageClass "IPM.Appointment If" Item.Categories "Send Message" Στη συνέχεια, Exit Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Instiintare expirare Autorizatie/Contract Service" objMsg.Body = "B ziua," & vbNewLine & vbNewLine & _ "Σύμφωνο με την ημερομηνία, autorizatia/contractul de service, incheiat intre compania nostra si " + Item.Subject + " urmeaza sa exire in termen de 14 zile." & vbNewLine & _ "Acest lucru este in atentia departamentului nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va ultumim pentru increderea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Nothing End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
σταματά λόγω της γραμμής.... Εάν Item.Categories <> "Send Schedule Recurring Email" Τότε βγείτε από το Sub
όταν προσθέτετε την άλλη κατηγορία προκαλεί το exit sub.... ίσως χρησιμοποιήσει εάν instr(1,item.categories"Send Schedule Recurring Email") =0 και μετά βγείτε από το sub ή κάτι τέτοιο...
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL