שליחת מייל מאקסס דרך אאוטלוק

[ארי]

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

Sub sendOutlookEmail()
Dim oApp As New Outlook.Application
Dim oMail As MailItem

Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Body of the email"
oMail.Subject = "Test Subject"
oMail.To = "Someone@somewhere.com"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing
End Sub

אבל אני לא מוצר איפה אני מגדיר את השם משתמש וסיסמא של החשבון.
האם יש אפשרות כזו? או שזה רק כאשר המייל הוא ברירת מחדל במחשב?
תודה רבה!

[מלא]

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

[ארי]

@מלא את הקוד לג'ימייל אני מכיר ועובד איתו מצוין.
הבעיה שלי הייתה שבניתי למישהו תוכנה לשליחת הזמנות לחתונה, ואחרי 150 מיילים נחסם לו החשבון ג'ימייל ל24 שעות (דבר מוזר בפני עצמו, כי זכור לי שיש מגבלה של 500 מיילים).
יש לו מישהו שיפתח לו חשבון בדומיין פרטי, ובזה לא יהיה לו מגבלה של מיילים.
ובשביל זה אני צריך קוד לשליחה לא דרך ג'ימייל. אני מקווה שאאוטלוק והדומיין הפרטי יהיו אותו דבר, ואני רוצה להיערך לקוד חלופי לתת לו.
תודה.

[מלא]

@ארי
דומיין פרטי בworkspase של גוגל גם נחסם?

[צדיק תמים]

@ארי זה מאוד מוזר מה שאתה מתאר שזה נחסם אחרי 150 מיילים, התיעוד מדבר על 500 ומהנסיון שלי זה נאכף בפועל רק במספר הרבה יותר גבוה.
אולי זה היה מיילים לנמענים מרובים? כל נמען נספר כמייל נוסף
ואגב גם בג'ימייל עסקי יש מגבלה, אם כי הרבה יותר גבוהה - SMTP רגיל (smtp.gmail.com) המגבלה היא 2000 (אם זה וורקספייס חדש אז פחות), ואם משתמשים בSMTP relay זה 10,000 ביום (בוורקספייס לא חדש)

[מלא]

@ארי
אם פתחת בשביל זה כתובת מייל חדשה
אז אאל"ט היה לי בעבר שכתובת מייל חדשה שרק שלח הודעות דרך SMTP היה נחסם אחרי לא הרבה פעילות.
חייב להיות פעילות מקבילה של דואר נכנס ויוצא.