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

פעמים רבות רוצים לשלוח קובץ באי מייל.

קוד קצר זה יעשה את העבודה עבורכם.

בדוגמא זו הקובץ הפעיל באקסל נשלח, אבל אתם יכולים לשלוח כל קובץ.

Sub sendActiveWorkbook()

'משלוח הקובץ הפעיל באמצעות OUTLOOK

ActiveWorkbook.SendMail "michal@eso.co.il", " שליחת הקובץ הפעיל באקסל באמצעות VBA"

End Sub

מבנה הקוד למשלוח למספר נמענים:

Sub sendActiveWorkbook()

ActiveWorkbook.SendMail Array("michal@eso.co.il", "michal@eso.co.il"), "שליחת הקובץ הפעיל באקסל למספר נמענים באמצעות VBA"

End Sub

ל- SendMail יש 3 ארגומנטים:

1. למי שולחים את המייל – חובה! כתובת מייל תקנית בתוך גרשיים , ניתן למספר כתובות מופרדות בפסיק.

2. נושא – subject : בתוך גרשיים.

3. למי להחזיר את המייל לשימוש רק אם רוצים שמייל חוזר יהיה לאי מייל אחר ולא לכתובת השולח.

ב ה צ ל ח ה!