שליחת גיליון אקסל באי מייל באמצעות אקסל VBA

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

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

Sub SendSheet()

ActiveWorkbook.Worksheets("mysheetname").Copy

ActiveWorkbook.SendMail "michal@eso.co.il", " sending sheet by VBA "

End Sub

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

ב ה צ ל ח ה !