Σε αυτό το άρθρο, θα σας δείξουμε 5 Μάκρο στο αποστολή email από το Excel Για να επιδείξουμε τις μεθόδους μας, επιλέξαμε ένα σύνολο δεδομένων με 3 στήλες : " Όνομα ", " Ηλεκτρονικό ταχυδρομείο ", και " Πόλη ".

Κατεβάστε το βιβλίο ασκήσεων

5 τρόποι χρήσης μακροεντολών για την αποστολή email από το Excel

1. Χρήση της βιβλιοθήκης αντικειμένων του Outlook για την αποστολή ηλεκτρονικού ταχυδρομείου

Για την πρώτη Μάκρο , θα ενεργοποιήσουμε το " Microsoft Outlook 16.0 Βιβλιοθήκη αντικειμένων " προς αποστολή ένα email από το Excel . Επιπλέον, πρέπει να συνδεθούμε στο Outlook λογαριασμό στο Excel .

Βήματα:

Στην αρχή, θα αναδείξουμε το Visual Basic παράθυρο.

• Πρώτον, από το Προγραμματιστής tab>>>> select Visual Basic .

Εναλλακτικά, μπορείτε να πατήσετε ALT + F11 για να εμφανίσετε το VBA παράθυρο.

• Δεύτερον, από Εργαλεία >>> select " Αναφορές... ".

Μια νέα παράθυρο διαλόγου θα εμφανιστεί.

• Τρίτον, επιλέξτε " Microsoft Outlook 16.0 Βιβλιοθήκη αντικειμένων ", και πατήστε OK .

Έτσι, θα επιτρέψουμε Βιβλιοθήκη αντικειμένων του Outlook .

• Τους από Εισαγωγή >>>> επιλέξτε Ενότητα .

Θα πληκτρολογήσουμε τον κώδικά μας εδώ.

• Μετά από αυτό, πληκτρολογήστε τον ακόλουθο κώδικα.

 Sub Macro_Send_Email() Dim eApp As Outlook.Application Dim eSource As String Set eApp = New Outlook.Application Dim eItem As Outlook.MailItem Set eItem = eApp.CreateItem(olMailItem) eItem.To = Range("C5").Value 'Αυτά τα στοιχεία είναι προαιρετικά 'eItem.CC = "[email protected]" 'etem.BCC = "[email protected]" eItem.Subject = "Αποστολή ηλεκτρονικού ταχυδρομείου με χρήση VBA από το Excel" eItem.Body = "Γεια σας," & vbNewLine &,"Ελπίζω αυτό το email να σας βρίσκει καλά." & _ vbNewLine & vbNewLine & _ "Ειλικρινά," & vbNewLine & "Exceldemy" 'Αν θέλετε να επισυνάψετε αυτό το βιβλίο εργασίας, τότε ξεσχολιάστε αυτές τις δύο γραμμές από κάτω 'Source = ThisWorkbook.FullName 'eItem.Attachments.Add Source eItem.Display 'μπορεί να χρησιμοποιήσει .Send End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Macro_Send_Email .
• Δεύτερον, δηλώνουμε ότι η μεταβλητή τύποι.
• Τρίτον, επιλέγουμε Outlook ως το Αίτηση ταχυδρομείου .
• Στη συνέχεια, επιλέγουμε το email διεύθυνση αποστολής από κύτταρο C5 .
• Μετά από αυτό, το email περιεχόμενο έχει οριστεί στον κώδικά μας.
• Τέλος, " Ιδιότητα εμφάνισης VBA " χρησιμοποιείται εδώ για να εμφανίσει το email . Επομένως, θα πρέπει να πατήσουμε Στείλτε χειροκίνητα στο αποστολή το μηνύματα ηλεκτρονικού ταχυδρομείου Επιπλέον, μπορούμε να χρησιμοποιήσουμε " Αποστολή ακινήτου " προς αποστολή emails χωρίς να εμφανίζεται.

• Μετά από αυτό, Αποθήκευση και κλείστε το Ενότητα .

Τώρα, θα Εκτέλεση τον κώδικα.

• Πρώτον, από το Προγραμματιστής tab>>>> select Μακροεντολές .

Το Παράθυρο διαλόγου μακροεντολών θα εμφανιστεί.

• Δεύτερον, επιλέξτε το Υποδιαδικασία " Macro_Send_Email ".
• Τέλος, πατήστε Εκτέλεση .

Μετά την εκτέλεση του κώδικα, θα δούμε το email Μπορούμε να κάνουμε κλικ στο Στείλτε . Έτσι, σας δείξαμε την πρώτη μέθοδο της αποστολή ένα email από το excel χρησιμοποιώντας το VBA .

Διαβάστε περισσότερα: Αποστολή email από το Excel VBA χωρίς Outlook (4 Κατάλληλα παραδείγματα)

2. Μακροεντολή για την αποστολή email από λογαριασμό Gmail στο Excel

Για τη μέθοδο αυτή, χρειαζόμαστε λιγότερο ασφαλής πρόσβαση σε εφαρμογές από το Gmail Επιπλέον, θα πρέπει να ενεργοποιήσουμε τον λογαριασμό CDO της Microsoft από το Αναφορές μενού.

Βήματα:

• Πρώτον, όπως φαίνεται στην πρώτη μέθοδο , εμφανίζει το Παράθυρο διαλόγου "Αναφορές .
• Δεύτερον, επιλέξτε " Βιβλιοθήκη Microsoft CDO για Windows 2000 " και πατήστε OK .

• Τρίτον, μεταβείτε στη διεύθυνση Ασφάλεια από το Ρυθμίσεις λογαριασμού Google .
• Τέλος, ενεργοποιήστε Λιγότερο ασφαλής πρόσβαση σε εφαρμογές .

Τώρα, θα εισάγουμε το Μάκρο κωδικός.

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα και πληκτρολογήστε αυτόν τον κωδικό.

 Option Explicit Sub Send_Gmail_Macro() Dim cMail As Object Dim cConfig As Object Dim sConfig As Variant Dim cSubject As String Dim cFrom As String Dim cTo As String Dim cCC As String Dim cBcc As String Dim cBody As String cSubject = "Μακροεντολή αποστολής Gmail" cFrom = "[email protected]" cTo = "[email protected]" cBody = "Γεια σας. Αυτό είναι ένα αυτοματοποιημένο μήνυμα. Παρακαλώ μην απαντήσετε" Set cMail =CreateObject("CDO.Message") On Error GoTo Error_Handling Set cConfig = CreateObject("CDO.Configuration") cConfig.Load -1 Set sConfig = cConfig.Fields With sConfig .Item("//schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("//schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("//schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1.Item("//schemas.microsoft.com/cdo/configuration/sendername") = "[email protected]" .Item("//schemas.microsoft.com/cdo/configuration/sendpassword") = "SenderGmailPassword" .Item("//schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("//schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Update End With With With cMail Set .Configuration = cConfig End With cMail.Subject =cSubject cMail.From = cFrom cMail.To = cTo cMail.TextBody = cBody cMail.CC = cCC cMail.BCC = cBcc cMail.Send Error_Handling: If Err.Description "" Then MsgBox Err.Description End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Send_Gmail_Macro .
• Δεύτερον, δηλώνουμε ότι η μεταβλητή τύποι.
• Τρίτον, ρυθμίζουμε το email περιεχόμενο στον κώδικά μας.
• Στη συνέχεια, παρέχουμε το διαπιστευτήρια σύνδεσης Πρέπει να πληκτρολογήσετε το δικό σας ID και Κωδικός πρόσβασης εδώ.
• Μετά από αυτό, ξεκινήσαμε λιμένας στο 465 .
• Τέλος, είμαστε αποστολή το μας email .

• Τότε, Αποθήκευση και Εκτέλεση αυτόν τον κωδικό.

Έχουμε επιτυχώς αποστέλλεται ένα email στη διεύθυνσή μας.

Διαβάστε περισσότερα: Μακροεντολή για αποστολή email από το Excel με σώμα (3 χρήσιμες περιπτώσεις)

3. Αποστολή email σε μια λίστα παραληπτών από μια στήλη

Για την τρίτη μέθοδο, θα πάμε να αποστολή emails στο 7 άνθρωποι που χρησιμοποιούν Μάκρο από το Excel . Θα βρούμε τον τελευταίο σειρά του συνόλου δεδομένων μας, συνεπώς ο κώδικάς μας θα λειτουργήσει για μια μεγαλύτερη λίστα. Θα αποστολή emails από το κύτταρο C5:C10 εύρος.

Βήματα:

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα και πληκτρολογήστε αυτόν τον κωδικό.

 Sub Macro_Send_Email_From_A_List() Dim pApp As Object Dim pMail As Object Dim z As Integer Dim eList As String Dim eRow As Long Set pApp = CreateObject("Outlook.Application") Set pMail = pApp.CreateItem(0) eRow = Range("C:C").SpecialCells(xlCellTypeLastCell).Row - 1 With pMail eList = "" For z = 5 To eRow If eList = "" Then eList = Cells(z, 3).Value Else eList = eList & ";" & Cells(z,3).Value End If Next z .BCC = eList .Subject = "Hello There" .Body = "This Message is brought to you by Exceldemy." .Display 'You can use .Send here End With Set pMail = Nothing Set pApp = Nothing End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Macro_Send_Email_From_A_List .
• Δεύτερον, δηλώνουμε ότι η μεταβλητή τύποι.
• Τρίτον, επιλέγουμε Outlook ως το Αίτηση ταχυδρομείου .
• Στη συνέχεια, βρίσκουμε το τελευταία σειρά , το οποίο είναι 10 για το σύνολο δεδομένων μας.
• Μετά από αυτό, όπως μας email ξεκινά από σειρά 5 έχουμε εισάγει 5 ως αρχική τιμή για την " μεταβλητή z ". Επιπλέον, η μηνύματα ηλεκτρονικού ταχυδρομείου είναι στο Στήλη C , ως εκ τούτου έχουμε εισάγει 3 μέσα στο Κύτταρα ιδιοκτησία.
• Στη συνέχεια, ρυθμίζουμε το email περιεχόμενο στον κώδικά μας.
• Τέλος, " .Display " χρησιμοποιείται εδώ για να εμφανίσει το email . Επομένως, θα πρέπει να πατήσουμε Στείλτε χειροκίνητα στο αποστολή το μηνύματα ηλεκτρονικού ταχυδρομείου Επιπλέον, μπορούμε να χρησιμοποιήσουμε " .Send " προς αποστολή email χωρίς να εμφανίζεται.

• Τότε, Αποθήκευση και Εκτέλεση το Ενότητα .

Μπορούμε να δούμε ότι όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου εμφανίζονται σε BCC Εν κατακλείδι, μπορούμε απλά να πατήσουμε Στείλτε για να ολοκληρώσουμε το έργο μας.

Διαβάστε περισσότερα: Πώς να στείλετε email από τη λίστα Excel (2 αποτελεσματικοί τρόποι)

Παρόμοιες αναγνώσεις

• Πώς να στείλετε αυτόματα email όταν πληρούνται οι προϋποθέσεις στο Excel
• Πώς να μοιραστείτε το αρχείο Excel online (2 εύκολες μέθοδοι)
• Αυτόματη αποστολή email υπενθύμισης από ένα φύλλο εργασίας του Excel χρησιμοποιώντας το VBA
• Πώς να στείλετε email εάν πληρούνται οι προϋποθέσεις στο Excel (3 εύκολες μέθοδοι)
• Πώς να ενεργοποιήσετε το βιβλίο εργασίας κοινής χρήσης στο Excel

4. Μακροεντολή για την αποστολή μεμονωμένου φύλλου μέσω email

Σε αυτή την ενότητα, θα αποστολή το Ενεργό φύλλο εργασίας στο άτομο-στόχο μας. Εδώ, θα πρέπει να επιλέξουμε τη θέση του Excel αρχείο.

Βήματα:

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα και πληκτρολογήστε αυτόν τον κωδικό.

 Sub Macro_Email_Single_Sheet() Dim pApp As Object Dim pMail As Object Dim zBook As Workbook Dim fxName As String 'Dim zSheet As Worksheet 'Dim shtName As String Application.ScreenUpdating = False ActiveSheet.Copy Set zBook = ActiveWorkbook fxName = zBook.Worksheets(1).Name On Error Resume Next Kill "C:\Users\Rafi\OneDrive\Desktop\Softeko\47\" & fxName On Error GoTo 0 zBook.SaveAsFileName:="C:\Users\Rafi\OneDrive\Desktop\Softeko\47\" & fxName Set pApp = CreateObject("Outlook.Application") Set pMail = pApp.CreateItem(0) With pMail .To = "[email protected]" .Subject = "Μακροεντολή για αποστολή μεμονωμένου φύλλου μέσω email" .Body = "Αγαπητέ RecieverName," & vbCrLf & vbCrLf & _ "Το αρχείο που ζητήσατε επισυνάπτεται" .Attachments.Add zBook.FullName .Display End WithzBook.ChangeFileAccess Mode:=xlReadOnly Kill zBook.FullName zBook.Close SaveChanges:=False Application.ScreenUpdating = True Set pMail = Nothing Set pApp = Nothing End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Macro_Email_Single_Sheet .
• Δεύτερον, δηλώνουμε ότι η μεταβλητή τύποι.
• Τρίτον, αντιγράφουμε το Ενεργό φύλλο και να το αποθηκεύσετε ως ξεχωριστό Βιβλίο εργασίας .
• Μετά από αυτό, επιλέγουμε Outlook ως το Αίτηση ταχυδρομείου .
• Στη συνέχεια, ρυθμίζουμε το email περιεχόμενο στον κώδικά μας.
• Μετά από αυτό, έχουμε συνδέσει το Φύλλο στο email .
• Τέλος, χρησιμοποιήστε " .Display " για να εμφανίσετε το email . Επομένως, θα πρέπει να πατήσουμε Στείλτε χειροκίνητα στο αποστολή το μηνύματα ηλεκτρονικού ταχυδρομείου Επιπλέον, μπορούμε να χρησιμοποιήσουμε " .Send " προς αποστολή email χωρίς να εμφανίζεται.

• Τότε, Αποθήκευση και Εκτέλεση το Ενότητα .

Θα δούμε το Φύλλο όνομα στο παράθυρο. Πατήστε Στείλτε για την ολοκλήρωση της εργασίας.

Μπορούμε να ανοιχτό το αρχείο και επαληθεύστε ότι ο κώδικάς μας λειτουργεί.

Διαβάστε περισσότερα: Πώς να στείλετε ένα επεξεργάσιμο φύλλο Excel μέσω email (3 γρήγορες μέθοδοι)

5. Μακροεντολή για αποστολή email με βάση την τιμή κελιού

Για την τελευταία μέθοδο, αλλάξαμε λίγο το σύνολο δεδομένων μας. Προσθέσαμε το " Πληρωμή Λόγω " στήλη στο σύνολο δεδομένων. Εδώ, θα αποστολή ένα email που περιέχει την πόλη " Ομπάμα ". Μπορούμε να δούμε ξεκάθαρα ότι σειρά 5 το περιέχει, ως εκ τούτου, θα αποστολή ένα email μόνο σε αυτό το άτομο.

Βήματα:

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα και πληκτρολογήστε αυτόν τον κωδικό.

 Option Explicit Sub Send_Email_Condition() Dim xSheet As Worksheet Dim mAddress As String, mSubject As String, eName As String Dim eRow As Long, x As Long Set xSheet = ThisWorkbook.Sheets("Conditions") With xSheet eRow = .Cells(.Rows.Count, 5).End(xlUp).Row For x = 5 To eRow If .Cells(x, 4)>= 1 And .Cells(x, 5) = "Obama" Then mAddress = .Cells(x, 3) mSubject = "Request For Payment" eName =.Cells(x, 2) Call Send_Email_With_Multiple_Condition(mAddress, mSubject, eName) End If Next x End With End Sub Send_Email_With_Multiple_Condition(mAddress As String, mSubject As String, eName As String) Dim pApp As Object Dim pMail As Object Set pApp = CreateObject("Outlook.Application") Set pMail = pApp.CreateItem(0) With pMail .To = mAddress .CC = "" .BCC = "" .Subject = mSubject .Body ="Mr./Mrs. " & eName & ", Please pay the due amount within the next week." _ & vbNewLine & "The exact amount is attached with this email." .Attachments.Add ActiveWorkbook.FullName 'Send The File via Email .Display 'We can use .Send here too End With Set pMail = Nothing Set pApp = Nothing End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το πρώτο μας Υποδιαδικασία Send_Email_Condition .
• Δεύτερον, δηλώνουμε ότι η Μεταβλητή τύποι και ρύθμιση " Προϋποθέσεις " ως το Φύλλο .
• Τρίτον, το τελευταίο σειρά Επιπλέον, η τιμή μας ξεκινάει από το σειρά 5 , ως εκ τούτου έχουμε βάλει σειρά 5 μέχρι την τελευταία σειρά στον κώδικά μας.
• Στη συνέχεια, καλέστε το δεύτερο Υποδιαδικασία Send_Email_With_Multiple_Condition .
• Μετά από αυτό, επιλέγουμε Outlook ως το Αίτηση ταχυδρομείου .
• Στη συνέχεια, το email περιεχόμενο έχει οριστεί στον κώδικά μας.
• Εδώ, επισυνάπτουμε το Excel αρχείο με το email χρησιμοποιώντας το Συνημμένο μέθοδος.
• Μετά από αυτό, " .Display " χρησιμοποιείται εδώ για να εμφανίσει το email . Επομένως, θα πρέπει να πατήσουμε Στείλτε χειροκίνητα στο αποστολή το μηνύματα ηλεκτρονικού ταχυδρομείου Επιπλέον, μπορούμε να χρησιμοποιήσουμε " .Send " προς αποστολή email χωρίς να εμφανίζεται.

• Τότε, Αποθήκευση και Εκτέλεση το Ενότητα .

Εν κατακλείδι, σας δείξαμε μια ακόμη μέθοδο αποστολή ένα email χρησιμοποιώντας το Μακροεντολή VBA από το Excel .

Διαβάστε περισσότερα: Αυτόματη αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel με βάση το περιεχόμενο κελιών (2 μέθοδοι)

Τμήμα πρακτικής

Έχουμε προσθέσει σύνολα δεδομένων πρακτικής για κάθε μέθοδο στο Excel αρχείο.

Συμπέρασμα

Σας δείξαμε 5 Μέθοδοι για χρήση Μάκρο στο αποστολή ένα email από το Excel Ευχαριστώ για την ανάγνωση, συνεχίστε να διαπρέπετε!