Πώς να χρησιμοποιήσετε ένα Excel Macro σε email χωρίς τη χρήση του Outlook

Υπάρχουν πολλοί λόγοι για να στείλετε mail από έναν Excel macro . Για παράδειγμα , όταν ένα ποσό των πωλήσεων φτάνει μια ορισμένη αξία , ένας διαχειριστής μπορεί να θέλουν να γνωρίζουν αμέσως . Ενώ υπάρχουν μερικοί τρόποι για να στείλετε e-mail από μια μακροεντολή Excel , η πιο συχνά χρησιμοποιούμενη μέθοδος είναι να αξιοποιήσει το Outlook . Αυτό είναι ένα πρόβλημα, αν δεν έχετε εγκαταστήσει το Outlook στον υπολογιστή που χρησιμοποιείτε για να ανοίξετε το φύλλο . Σε αυτή την περίπτωση , μπορείτε να χρησιμοποιήσετε το CDO , που σημαίνει Collaboration Data Object , αντ 'αυτού. Οδηγίες
Η

1 Πιέστε το πλήκτρο " Alt " και " F11 " την ίδια στιγμή από το υπολογιστικό φύλλο Excel για να ανοίξετε το ενσωματωμένο πρόγραμμα επεξεργασίας της Visual Basic . 2

Αντιγραφή και επικόλληση τον ακόλουθο κώδικα στο κενό παράθυρο κώδικα : Sub CDO_Mail_Small_Text ( ) Dim ΙΜ Όπως ObjectDim iConf Όπως ObjectDim strbody As String ' Dim FLDS Όπως Παραλλαγή

Set ΙΜ = CreateObject ( " CDO.Message " ) Set iConf = = 2 . Προϊόν ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _ " = " Συμπληρώστε το διακομιστή SMTP σας εδώ " » . Προϊόν ( " http://schemas.microsoft.com/CDO /διαμόρφωση /smtpserverport " ) = 25 ' . Ενημέρωση » Τέλος Με

strbody = " Γεια σας " και vbNewLine & vbNewLine & _ " Αυτή είναι η γραμμή 1 " & vbNewLine & _ " Αυτό είναι η γραμμή 2 " & vbNewLine & _" Αυτή είναι η γραμμή 3 " & vbNewLine & _" Αυτή είναι η γραμμή 4 "

Με iMsgSet . Διαμόρφωση = iConf.To = " person@email.com " . CC = "" . BCC = " " . From = " " " πρόσωπο " " " . Θέμα = " Θέμα Line" . TextBody = strbody.SendEnd Με

End υπο
εικόνων 3

Αντικατάσταση " Συμπληρώστε το διακομιστή SMTP σας εδώ » με τη διεύθυνση του διακομιστή SMTP που θέλετε να χρησιμοποιήσετε .
Η

4 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη μακροεντολή και να στείλετε το μήνυμα ηλεκτρονικού ταχυδρομείου σας .
Η
εικόνων