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

Πώς να στείλετε / να στείλετε email μέσω κυττάρων μέσω προοπτικών από το Excel;

Είχατε ποτέ πρόβλημα με το ότι αφού ολοκληρώσετε μια αναφορά σε ένα φύλλο εργασίας και πρέπει να στείλετε σε μια σειρά κελιών σε αυτό το φύλλο εργασίας που περιέχουν ορισμένα σημαντικά δεδομένα στον συγκεκριμένο παραλήπτη σας. Υπάρχουν γρήγοροι τρόποι για να στείλετε μέσω ηλεκτρονικού ταχυδρομείου αυτό το εύρος από το Excel χωρίς να ανοίξετε το Outlook;

Αποστολή εύρους κελιών ως συνημμένο από το Excel με κώδικα VBA

Αποστολή εύρους κελιών ως σώμα από το Excel με κωδικό VBA


βέλος μπλε δεξιά φούσκαΑποστολή εύρους κελιών ως συνημμένο από το Excel με κώδικα VBA

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

1. Ανοίξτε το βιβλίο εργασίας σας και στη συνέχεια κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: αποστολή εύρους κελιών ως συνημμένο από το Excel

Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "information of kte"
    .Body = "hello, please check and read this document. "
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τις ακόλουθες πληροφορίες ανάλογα με τις ανάγκες σας.

  • .Το = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Θέμα = "πληροφορίες του kte"
  • .Body = "γεια, παρακαλώ ελέγξτε και διαβάστε αυτό το έγγραφο."

3. Στη συνέχεια κάντε κλικ στο κουμπί F5 για να εκτελέσετε αυτόν τον κωδικό και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε ένα εύρος που θέλετε να στείλετε. Δείτε το στιγμιότυπο οθόνης:

doc-send-range1

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

doc-send-range2


βέλος μπλε δεξιά φούσκαΑποστολή εύρους κελιών ως σώμα από το Excel με κωδικό VBA

Εάν θέλετε να στείλετε ένα συγκεκριμένο εύρος ως μέρος του σώματος μηνυμάτων από το Excel, μπορείτε επίσης να εφαρμόσετε τον ακόλουθο κώδικα VBA για να το λύσετε.

Kutools για Excel, με περισσότερα από 120 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

1. Ενεργοποιήστε το φύλλο εργασίας σας και κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: αποστολή εύρους κελιών ως σώμα από το Excel

Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "Please read this email."
    .Item.To = "skyyang@extendoffice.com"
    .Item.Subject = "information of kte"
    .Item.Send
End With
Application.ScreenUpdating = True
End Sub

Σημείωση: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τις ακόλουθες πληροφορίες ανάλογα με τις ανάγκες σας.

  • . Εισαγωγή = "Διαβάστε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου."
  • .Item.To = "skyyang @extendoffice.com "
  • .Item.Subject = "πληροφορίες του kte"

3. Στη συνέχεια κάντε κλικ στο κουμπί F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε ένα εύρος που θέλετε να στείλετε.

doc-send-range1

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

doc-send-range2

:

1. Αυτοί οι κωδικοί είναι διαθέσιμοι μόνο όταν το Outlook ως πρόγραμμα αλληλογραφίας σας.

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


Σχετικά άρθρα:

Πώς να στείλετε φύλλο εργασίας μόνο μέσω του Outlook από το Excel;

Πώς να στείλετε το τρέχον βιβλίο εργασίας μέσω του Outlook από το Excel;


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (26)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, χρησιμοποιώ το marco που επιλέγει τα κελιά που απαιτούνται για email. το συνδύασα με μια άλλη μακροεντολή, ώστε να ανοίξει ένα "νέο email" το πρόβλημά μου είναι τώρα ότι αν βάλεις πολλές πληροφορίες σε ένα κελί, τότε παίρνει μόνο το iformaiton που δεν βλέπεις όλες τις πληροφορίες σε αυτό το κελί καμία ιδέα ?? σας ευχαριστώ πάρα πολύ για τη βοήθειά σας με αυτό το μπράβο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια σας
Έχω ένα έργο για να επιλέξω περιοχή στο φύλλο 1 που θα σταλεί με email μία προς μία σε πολλές διευθύνσεις email γραμμένες στο φύλλο 2 στη στήλη Α και αν η στήλη Β είναι άδεια με συγκεκριμένο θέμα και μετά την αποστολή γράφει στο φύλλο 2 στήλη β στάλθηκε
Και να περιμένετε 10 δευτερόλεπτα για να στείλετε το επόμενο email ως κατάσταση του διακομιστή
Κάποιος να με βοηθήσει παρακαλώ;   
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Μπορείτε παρακαλώ να με ενημερώσετε πώς να προσθέσω υπογραφή και δεύτερη γραμμή εισαγωγής σε αυτό το μήνυμα για το δεύτερο πρόγραμμα. Ευχαριστώ εκ των προτέρων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ωραίο και χρήσιμο, καλή δουλειά!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμο. Σας ευχαριστώ . Έχω λίστα με τις διευθύνσεις email στο ίδιο φύλλο. Όταν κάνω κλικ σε μία διεύθυνση email , η επιλεγμένη περιοχή κελιών θα σταλεί ως συνημμένο σε αυτό το email. Μπορείτε να με βοηθήσετε σε αυτό; Ευχαριστώ πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, Πολύ ωραία εξήγησε. Αντί να στείλουμε ένα νέο βιβλίο εργασίας, μπορούμε μόνο να αντιγράψουμε και να επικολλήσουμε το επιλεγμένο εύρος στο σώμα του email και να το στείλουμε. Δεν θέλω να στείλω το επιλεγμένο εύρος ως εικόνα. Θέλω να στείλω σαν προβολή πίνακα στο σώμα του email. Μπορούμε να το κάνουμε??
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ, είναι πολύ χρήσιμο, αλλά τι γίνεται αν χρειαστεί να προσθέσω κάποια περιγραφή στο σώμα της αλληλογραφίας πριν την στείλω. Προτείνετε τον κωδικό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Όλα φαίνονται καλά, αλλά δεν δίνουν το επιλεγμένο εύρος περιγράμματος, θα μπορούσατε να προτείνετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ, βρίσκω αυτή τη λύση τόσο καιρό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετική δουλειά. Θα ήταν καλύτερα να το δείτε να αποστέλλεται αυτόματα. Τι πρέπει να κάνω για να μην εμφανιστεί σφάλμα πριν συνεχιστεί η αποστολή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
θα μπορούσαμε να βάλουμε τόσες διευθύνσεις email για αποστολή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Carey, όλα πάνω από τα VBA μπορούν να προσθέσουν πολλές διευθύνσεις email (Προς, BCC, CC) για αποστολή χρησιμοποιώντας ; ως διαχωριστικό. Για παράδειγμα, .To = "skyyang@extendoffice.com; test1@extendoffice.com; test2@extendoffice.com "
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ich möchte das kopierte nicht als Datei in eine E-Mail einfügen, sondern ανά αντίγραφο και επικόλληση στο die E-Mail einfügen. Έχετε τον κώδικα VBA;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Έχω δημιουργήσει έναν πίνακα που θέλω να συμπληρώσει το προσωπικό και μετά ένα κουμπί εντολής που θα δημιουργήσει αυτόματα ένα μήνυμα ηλεκτρονικού ταχυδρομείου, ωστόσο θέλω τα δεδομένα από τον πίνακα να βρίσκονται στο σώμα του email. Υπάρχει κωδικός για αυτό; 
Ευχαριστούμε 
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια σας
Έχω ένα έργο για να επιλέξω περιοχή στο φύλλο 1 που θα σταλεί με email μία προς μία σε πολλές διευθύνσεις email γραμμένες στο φύλλο 2 στη στήλη Α και αν η στήλη Β είναι άδεια με συγκεκριμένο θέμα και μετά την αποστολή γράφει στο φύλλο 2 στήλη β στάλθηκε
Και να περιμένετε 10 δευτερόλεπτα για να στείλετε το επόμενο email ως κατάσταση του διακομιστή
Κάποιος να με βοηθήσει παρακαλώ;   
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια σας
Έχω ένα έργο για να επιλέξω περιοχή στο φύλλο 1 που θα σταλεί με email μία προς μία σε πολλές διευθύνσεις email γραμμένες στο φύλλο 2 στη στήλη Α και αν η στήλη Β είναι άδεια με συγκεκριμένο θέμα και μετά την αποστολή γράφει στο φύλλο 2 στήλη β στάλθηκε
Και να περιμένετε 10 δευτερόλεπτα για να στείλετε το επόμενο email ως κατάσταση του διακομιστή
Κάποιος να με βοηθήσει παρακαλώ;   
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, hriad, "αν η στήλη Β είναι άδεια με συγκεκριμένο θέμα και μετά την αποστολή γράφει στο φύλλο 2 η στήλη β αποστέλλεται
Και να περιμένω 10 δευτερόλεπτα για να στείλω το επόμενο email ως κατάσταση του διακομιστή" Δεν το καταλαβαίνω. Πείτε μου ξανά για την απαίτησή σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Sunny
καταρχάς, ευχαριστώ για τη βοήθειά σας, καθώς ο διακομιστής έβαλε έναν όρο να μην στέλνονται πολλά email στο ίδιο δευτερόλεπτο, θέλω να περιμένω 10 δευτερόλεπτα μετά την αποστολή του πρώτου email και του επόμενου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, hriad, δοκιμάστε τον παρακάτω κώδικα, αφού τον εκτελέσετε, θα εμφανιστεί ένα παράθυρο διαλόγου για την επιλογή μιας περιοχής που θέλετε να στείλετε, στη συνέχεια θα αποσταλεί στις διευθύνσεις στο φύλλο 2, στήλη Α και με τα θέματα στη στήλη Β. Κάθε 10 δευτερόλεπτα , στείλτε σε μία διεύθυνση. Μπορείτε να αλλάξετε τον κωδικό "Παρακαλώ διαβάστε αυτό το email" όπως χρειάζεστε.
Sub SendEmailRange()

'UpdateByExtendoffice20220414

Dim WorkRng As Range

Dim xSU, EV ως Boolean

Dim xWSh ως φύλλο εργασίας

Dim xCount ως ακέραιος

Dim xI ως ακέραιος αριθμός

On Error Συνέχιση Επόμενη

xTitleId = "KutoolsforExcel"

'επιλέξτε ένα εύρος που συνήθιζε να στέλνει ως σώμα

Ορισμός WorkRng = Application.InputBox("Range", xTitleId, Application.Selection.Address, , , , , 8)

Εάν το WorkRng δεν είναι τίποτα, τότε βγείτε από το Sub
WorkRng.Ενεργοποίηση
WorkRng.Επιλέξτε

Ορίστε xWSh = ActiveWorkbook.Worksheets("Sheet2") 'το φύλλο που περιέχει διευθύνσεις και θέματα

xCount = xWSh.UsedRange.Rows.Count

xSU = Application.ScreenUpdating

EV = ActiveWorkbook.EnvelopeVisible

Application.ScreenUpdating = False


Για xI = 1 έως xCount

Αν (xWSh.Range("A" & xI) = "") Τότε
Έξοδος για
End If
ActiveWorkbook.EnvelopeVisible = True
Με το ActiveSheet.MailEnvelope
. Εισαγωγή = "Διαβάστε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου."

.Item.To = xWSh.Range("A" & xI)

.Item.Subject = xWSh.Range("B" & xI)

.Αντικείμενο.Αποστολή
Τέλος με
Αν (xI = xCount) Τότε

Έξοδος για

End If

Application.Wait Now + TimeValue("0:00:10")

Επόμενο


Application.ScreenUpdating = xSU

ActiveWorkbook.EnvelopeVisible = EV

Sub End

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Sunny
Ευχαριστώ πολύ για τον κόπο σας... Ευχαριστώ πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορούμε να καθορίσουμε εύρη; σε μακροεντολή τον εαυτό του
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

Mam plik z 6 arkuszami. Każdy z arkuszy 2-6 musi zostać wysłany do innej grupy odbiorców jako załącznik excela. Czy da się to podpiąć pod 5 przycisków?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Pawerl
Για να λύσετε το πρόβλημά σας, το παρακάτω άρθρο μπορεί να σας βοηθήσει, ελέγξτε το:

https://www.extendoffice.com/documents/excel/7178-send-each-sheet-to-different-email.html

Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ για αυτό! Θα το δοκιμάσω σύντομα μόλις επιστρέψω από τις διακοπές. Έχετε μια ακόμη ερώτηση. Έχετε ένα πρόβλημα με την εκτέλεση κωδικών vba χρησιμοποιώντας το κουμπί Activex (καμία ενέργεια) ακόμα κι αν ο κώδικας λειτουργεί τέλεια σε λειτουργία επεξεργασίας ή όταν εκτελείται με ctrl+επιλεγμένο κουμπί από το πληκτρολόγιο. Μόλις ξεκινώ το ταξίδι vba και δεν έχω
ιδέα τι κάνω λάθος :/
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Pawerl
Απλά πρέπει να αντιγράψετε και να επικολλήσετε τον κώδικα στο Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ στο τρέξιμο κουμπί από τη γραμμή εργαλείων όπως φαίνεται παρακάτω στιγμιότυπο οθόνης: (Note: στον κώδικα, S1 είναι το κελί που περιέχει τη διεύθυνση email στην οποία θέλετε να στείλετε το email. Αλλάξτε τα ανάλογα με τις ανάγκες σας.)

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-emails.png

ΠΑΡΑΚΑΛΩ προσπαθησε ξανα!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

Έκανα τα πάντα όπως παραπάνω και το αποτέλεσμα είναι: όλα λειτουργούν τέλεια εκτός του κουμπιού :) Μην σε νοιάζει πραγματικά αυτό αυτή τη στιγμή :)

Τεράστιο ευχαριστώ!!! το θέμα έκλεισε :)
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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