שליחת מייל מאקסס ללא לקוח דוא"ל

[one1010]

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

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

[חייםיודלביץ]

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

וכל מי שייכנס לקוד יוכל לדעת מה הסיסמא?!

אם תשלח ללקוח קובץ סגור בסיומת ACCDE , אז אף אחד לא יוכל לראות את הקוד שכתבת.
בתצורת קובץ זו קוד המקור בכלל לא נמצא בקובץ למיטב ידעתי.

[ארי]

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

[one1010]

@חייםיודלביץ כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

וכל מי שייכנס לקוד יוכל לדעת מה הסיסמא?!

אם תשלח ללקוח קובץ סגור בסיומת ACCDE , אז אף אחד לא יוכל לראות את הקוד שכתבת.
בתצורת קובץ זו קוד המקור בכלל לא נמצא בקובץ למיטב ידעתי.

להבנתי בלחיצה עם שיפט הקובץ נפתח רגיל

[one1010]

@ארי כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

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

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

[one1010]

@ארי כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

Public Function Send()
Dim cdoConfig
Dim msgOne
Dim ErrStr

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
    .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
    .item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig

msgOne.To = "To name <SendTo@gmail.com>"
msgOne.From = "Your Name <YourEmail@gmail.com>"
msgOne.Subject = "Subject"
msgOne.TextBody = "TextBody"
'msgOne.AddAttachment "C:\Users\1\Downloads\Some File.pdf"
msgOne.Send

Exit Function

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

תודה רבה

[צדיק תמים]

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

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

דווקא סיסמה לאפליקציה. שזה אומר שצריך קודם להפעיל אימות דו שלבי.
ראה כאן: https://tchumim.com/topic/13632/שליחת-הודעת-מייל-מחשבון-gmail-באופן-אפליקטיבי

[one1010]

@צדיק-תמים כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

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

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

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

ראה כאן: https://tchumim.com/topic/13632/שליחת-הודעת-מייל-מחשבון-gmail-באופן-אפליקטיבי

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

[צבי-ש]

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

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

לא ניתן להתחבר לחשבון גוגל, וגם ניתן לעשות עם זה עוד דברים מלבד לשלוח מיילים, למה זה סותר?

[one1010]

@צבי-ש כתב ב[שליחת מייל מאקסס ללא לקוח דוא"ל]

לא ניתן להתחבר לחשבון גוגל, וגם ניתן לעשות עם זה עוד דברים מלבד לשלוח מיילים, למה זה סותר?

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

[ארי]

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

תוכל לעזור לי לשנות את הקוד הזה מתי ומה הוא יישלח?

מתי - אתה צריך לעשות קוד שבזמן ביצוע החיפוש (בטופס?) הוא ישלח את המייל.
מה - אתה צריך לשנות את הערך שכתוב כאן

msgOne.Subject = "Subject"

לנושא של המייל שאותו אתה רוצה
וכאן

msgOne.TextBody = "TextBody"

לכתוב את גוף המייל.
אתה גם יכול לשלוח את השאילתה בתור קובץ אקסל מצורף בפרמטר הזה

msgOne.AddAttachment "C:\Users\1\Downloads\Some File.pdf"

[one1010]

@ארי כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

תוכל לעזור לי לשנות את הקוד הזה מתי ומה הוא יישלח?

אני אקדים שאני לא באמת מבין בזה... אני רק מנסה...

מתי - אתה צריך לעשות קוד שבזמן ביצוע החיפוש (בטופס?) הוא ישלח את המייל.

אני רוצה שאחרי ביצוע החיפוש- כלומר כשיש תוצאות כי זה אורך כמה שניות

מה - אתה צריך לשנות את הערך שכתוב כאן

msgOne.Subject = "Subject"

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

לנושא של המייל שאותו אתה רוצה
וכאן

msgOne.TextBody = "TextBody"

לכתוב את גוף המייל.
אתה גם יכול לשלוח את השאילתה בתור קובץ אקסל מצורף בפרמטר הזה

msgOne.AddAttachment "C:\Users\1\Downloads\Some File.pdf"

אני צריך לשנות משהו כאן? מה?!...

[ארי]

@one1010 אם אתה רוצה עזרה פרטנית יותר אתה צריך גם לפרט יותר.
איך עושים את החיפוש, בטופס?
מה החיפוש מחפש?
איזה תוצאות הוא מחזיר.
וכו' וכו'.
אולי עדיף שתעלה קובץ דוגמא של התוכנה שלך.

[one1010]

@ארי כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

@one1010 אם אתה רוצה עזרה פרטנית יותר אתה צריך גם לפרט יותר.
איך עושים את החיפוש, בטופס?

כן, החיפוש נעשה בטופס

מה החיפוש מחפש?

יש כמה קבצי דאטה של שמות אנשים ופרטיהם וכו' החיפוש מחפש לפי כמה אפשרויות חיפוש -

איזה תוצאות הוא מחזיר.

ומציג את התוצאות המתאימות.

אין אפשרות רק להוסיף קוד פשוט של 'הדפסת'/העתקת התוצאות לטופס נפרד? משם נראה לי יהיה יותר קל לשלוח את זה במייל.

תודה רבה!

כהמשך להערתו של @dovid פתחתי פוסט נפרד שיטפל בשאלה המתפתחת:
https://tchumim.com/post/152933

[dovid]

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

[one1010]

@dovid כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

נכון זה טרחה לעשות כזה קובץ,

הקובץ מוכן כך שלא מדובר בעניין של טרחה.

(וזה אחרי אריכות אף על הסרבול של הנושא שמתחיל משאלה נקודתית וסובב הולך לאיך לעשות מא' עד ת').

אולי באמת כדאי שאפתח פוסט חדש על השליחה עצמה.
עריכה: נפתח..: https://tchumim.com/post/152934