כיצד לשלוח הודעות דוא'ל מתוך גיליון אלקטרוני של Excel באמצעות סקריפטים של VBA

כיצד לשלוח הודעות דוא'ל מתוך גיליון אלקטרוני של Excel באמצעות סקריפטים של VBA

כדי לשלוח הודעות דוא'ל מ- Microsoft Excel דרושות רק כמה סקריפטים פשוטים. הוסף את הפונקציונליות הזו לגיליונות האלקטרוניים שלך ותוכל באמת לשפר כמה אתה יכול להשיג ב- Excel.





סקרנו הרבה פקודות מאקרו נהדרות של Excel, שיכולות להשיג את אותם הדברים שאפשר לעשות סקריפטים של VBA, אך ללא צורך בידע בתכנות. אבל יש הרבה דברים מתקדמים שאתה יכול לעשות רק עם VBA, כמו יצירת דוח גיליון אלקטרוני עם כל פרטי המחשב האישי שלך.



מעדיף לצפות במדריך זה כסרטון? כיסינו אותך!





למה לשלוח דוא'ל מאקסל?

ישנן הרבה סיבות לכך שתרצה לשלוח דוא'ל מתוך Microsoft Excel.

אולי יש לך צוות שמעדכן מסמכים או גיליונות אלקטרוניים על בסיס שבועי, ואתה מעוניין לקבל הודעה בדואר אלקטרוני בנוגע לביצוע העדכונים האלה. או שאולי יש לך גיליון אלקטרוני של אנשי קשר ואתה רוצה לשלוח מייל אחד לכולם בבת אחת.



אתה כנראה חושב שסקריפט של שידור דוא'ל מ- Excel יהיה מסובך. זה בכלל לא המקרה.

הטכניקה במאמר זה תעשה שימוש בתכונה שהיתה זמינה ב- Excel VBA במשך זמן רב, אובייקטים של נתוני שיתוף פעולה (CDO).



CDO הוא רכיב העברת הודעות המשמש ב- Windows מאז הדורות המוקדמים ביותר של מערכת ההפעלה. פעם קראו לזה CDONTS, ולאחר מכן עם הופעת Windows 2000 ו- XP, הוחלף ב- 'CDO עבור Windows 2000'. רכיב זה כבר כלול בהתקנת VBA שלך בתוך Microsoft Word או Excel והוא מוכן לשימוש.

השימוש ברכיב הופך את שליחת הודעות הדוא'ל מתוך מוצרי Windows עם VBA לפשוטה ביותר. בדוגמה זו, תשתמש ברכיב CDO ב- Excel כדי לשלוח הודעת דוא'ל שתעביר את התוצאות מתא Excel ספציפי.



שלב 1: צור מאקרו VBA

השלב הראשון הוא לעבור לכרטיסייה מפתחי Excel.

בתוך הכרטיסייה מפתחים, לחץ על לְהַכנִיס בתיבה פקדים ולאחר מכן בחר כפתור פקודה.

צייר אותו לתוך הגיליון ולאחר מכן צור עבורו מאקרו חדש על ידי לחיצה על פקודות מאקרו בסרט המפתחים.

כאשר אתה לוחץ על לִיצוֹר כפתור, הוא יפתח את עורך VBA.

הוסף את ההפניה לספריית CDO על ידי ניווט אל כלים > הפניות בעורך.

גלול מטה ברשימה עד שתמצא Microsoft CDO עבור ספריית Windows 2000 . סמן את תיבת הסימון ולחץ בסדר .

כאשר אתה לוחץ בסדר , שים לב לשם הפונקציה שבה אתה מדביק את הסקריפט. תזדקק לזה אחר כך.

שלב 2: הגדר את ה- CDO 'From' ו- 'To' Fields

לשם כך, תחילה עליך ליצור את אובייקטים של הדואר ולהגדיר את כל השדות הדרושים לשליחת הדוא'ל.

זכור כי בעוד שרבים מהשדות הם אופציונליים, ה- מ ו ל שדות נדרשים.

כיצד ליצור כתובת דוא"ל חדשה
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = 'Results from Excel Spreadsheet'
strFrom = 'rdube02@gmail.com'
strTo = 'rdube02@gmail.com'
strCc = ''
strBcc = ''
strBody = 'The total results for this quarter are: ' & Str(Sheet1.Cells(2, 1))

הדבר המגניב בזה הוא שאתה יכול ליצור כל מחרוזת שתרצה להתאים אישית הודעת דוא'ל מלאה ולהקצות אותה ל strBody מִשְׁתַנֶה.

חלק את מרכיבי ההודעה באמצעות & מחרוזת להכניס נתונים מכל אחד מדפי Microsoft Excel ישירות להודעת הדוא'ל, בדיוק כפי שמוצג למעלה.

שלב 3: הגדר את CDO לשימוש ב- SMTP חיצוני

קטע הקוד הבא הוא המקום בו תגדיר את CDO לשימוש בכל שרת SMTP חיצוני לשליחת הדוא'ל.

דוגמה זו היא הגדרה שאינה SSL באמצעות Gmail. CDO מסוגל SSL, אך זה מחוץ להיקף מאמר זה. אם אתה צריך להשתמש ב- SSL, זה קוד מתקדם ב- Github יכול לעזור.

Set CDO_Mail = CreateObject('CDO.Message')
On Error GoTo Error_Handling
Set CDO_Config = CreateObject('CDO.Configuration')
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With SMTP_Config
.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') = 2
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') = 'smtp.gmail.com'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate') = 1
.Item('http://schemas.microsoft.com/cdo/configuration/sendusername') = 'email@website.com'
.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') = 'password'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') = 25
.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End With

שלב 4: סיים את התקנת CDO

כעת, לאחר שהגדרת את החיבור לשרת SMTP לשליחת הדוא'ל, כל שעליך לעשות הוא למלא את השדות המתאימים עבור אובייקט CDO_Mail , ולהוציא את לִשְׁלוֹחַ פקודה.

כך תעשה זאת:

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
If Err.Description '' Then MsgBox Err.Description

לא יהיו תיבות קופצות או הודעות אבטחת אבטחה, שיכולות לקרות כאשר אתה משתמש באובייקט הדואר של Outlook.

CDO פשוט מרכיב את הדוא'ל ומשתמש בפרטי חיבור שרת ה- SMTP שלך כדי לפטר את ההודעה. זוהי הדרך הקלה ביותר לשלב דוא'ל בסקריפטים של Microsoft Word או Excel VBA.

כדי לחבר את כפתור הפקודה שלך לסקריפט זה, היכנס לעורך הקוד ולחץ על גיליון 1 כדי לצפות בקוד VBA עבור גליון העבודה.

הקלד את שם הפונקציה שבה הדבקת את הסקריפט למעלה.

כיצד לגרום למחשב נייד לא לישון כשהוא סגור

כך נראתה ההודעה שקיבלתי בתיבת הדואר הנכנס שלי:

הערה : אם מתקבלת שגיאה הנקראת התחבורה נכשלה בחיבור לשרת , וודא שהזנת את שם המשתמש, הסיסמה, שרת SMTP ומספר היציאה הנכונים בשורות הקוד המופיעות מתחת עם SMTP_Config .

קח את זה הלאה ואוטומטי את התהליך כולו

הכל טוב ויפה להיות מסוגל לשלוח דוא'ל מ- Excel בלחיצת כפתור. עם זאת, ייתכן שתרצה להשתמש בפונקציונליות זו על בסיס קבוע, ובמקרה זה יהיה הגיוני להפוך את התהליך לאוטומטי.

לשם כך, עליך לבצע שינוי במאקרו. עבור לעורך Visual Basic והעתק והדבק את כל הקוד שהרכבנו.

לאחר מכן, בחר חוברת עבודה זו מ ה פּרוֹיֶקט הִיֵרַרכִיָה.

מתוך שני השדות הנפתחים בחלק העליון של חלון הקוד, בחר חוברת עבודה ובחר לִפְתוֹחַ מהתפריט הנפתח שיטות.

הדבק את סקריפט הדוא'ל למעלה חוברת תת -עבודה פרטית_פתוחה () .

פעולה זו תפעיל את המאקרו בכל פעם שתפתח את קובץ ה- Excel.

לאחר מכן, תפתח מתזמן משימות .

אתה הולך להשתמש בכלי זה כדי לבקש מ- Windows לפתוח את הגיליון האלקטרוני באופן אוטומטי במרווחי זמן קבועים, ובשלב זה יופעל המאקרו שלך וישלח את הדוא'ל.

בחר צור משימה בסיסית ... מ ה פעולה בתפריט ועברו דרך האשף עד שתגיעו אל פעולה מָסָך.

בחר התחל תוכנית ולחץ הַבָּא .

להשתמש ב לְדַפדֵף כפתור כדי למצוא את המיקום של Microsoft Excel במחשב שלך, או העתק והדבק את הנתיב לתוך תוכנית/תסריט שדה.

לאחר מכן, הזן את הנתיב למסמך Microsoft Excel שלך לתוך הוסף טיעונים שדה.

השלם את האשף והתזמון שלך יתקיים.

כדאי לבצע בדיקה על ידי תזמון הפעולה לכמה דקות בעתיד, ולאחר מכן לשנות את המשימה ברגע שתוכל לאשר שהיא פועלת.

הערה : ייתכן שיהיה עליך להתאים את הגדרות מרכז האמון שלך כדי לוודא שהמאקרו פועל כראוי.

לשם כך, פתח את הגיליון האלקטרוני ונווט אל קוֹבֶץ > אפשרויות > מרכז אמון .

מכאן, לחץ הגדרות מרכז אמון , ובמסך הבא הגדר את החוגה ברדיו לעולם אל תציג מידע על תוכן חסום .

לגרום ל- Microsoft Excel לעבוד עבורך

Microsoft Excel הוא כלי עוצמתי להפליא, אך למידה כיצד להפיק ממנו את המקסימום יכולה להיות מעט מפחידה. אם אתה באמת רוצה לשלוט בתוכנה, תצטרך להיות נוח עם VBA , וזו משימה לא קטנה.

האתרים הטובים ביותר לרכישת חלקי מחשב

עם זאת, התוצאות מדברות בעד עצמן. עם קצת ניסיון ב- VBA בחגורתך, בקרוב תוכל לגרום ל- Microsoft Excel לבצע משימות בסיסיות באופן אוטומטי, ולתת לך יותר זמן להתרכז בעניינים דחופים יותר.

לוקח זמן לבנות מומחיות עם VBA, אך בקרוב תראה את פירות עמלך אם תוכל לעמוד בזה.

מקום נהדר להתחיל בו הוא הסמכותי שלנו הדרכה לשימוש ב- VBA באקסל . לאחר שתסיים עם זה, התסריט הפשוט הזה לשלוח הודעות דוא'ל מאקסל ירגיש כמו משחק ילדים.

לַחֲלוֹק לַחֲלוֹק צִיוּץ אימייל Canon לעומת ניקון: איזה מותג מצלמות עדיף?

קנון וניקון הם שני השמות הגדולים ביותר בתעשיית המצלמות. אבל איזה מותג מציע את המערך הטוב ביותר של מצלמות ועדשות?

קרא הבא נושאים קשורים
  • פִּריוֹן
  • תִכנוּת
  • טיפים בדוא'ל
  • תִכנוּת
  • תכנות Visual Basic
  • Microsoft Excel
  • טיפים של Microsoft Office
על הסופר ריאן דוב(פורסמו 942 מאמרים)

לריאן תואר ראשון בהנדסת חשמל. הוא עבד 13 שנים בהנדסת אוטומציה, 5 שנים בתחום ה- IT, וכיום הוא מהנדס אפליקציות. עורך מנהל לשעבר של MakeUseOf, דיבר בכנסים לאומיים בנושא ויזואליזציית נתונים והוצג בטלוויזיה ורדיו ארצי.

עוד מאת ריאן דוב

הירשם לניוזלטר שלנו

הצטרף לניוזלטר שלנו לקבלת טיפים, סקירות, ספרים אלקטרוניים בחינם ומבצעים בלעדיים!

לחצו כאן להרשמה