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

[צבי-ש]

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

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

למשל פה יש נושא על זה

טוב... אני לא באמת מבין מה כתוב שם... במיוחד בשעה כזאת...

אני לא אחראי על השעון..

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

[ארי]

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

[dovid]

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

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

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

[ארי]

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

זה קל ביותר להגיע לסיסמה גם בלי להיכנס לקוד.

א. רק לסקרנות, איך?
ב. האם להיכנס לקוד זה כן מאובטח?

[אביי]

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

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

@צדיק-תמים וזה לא מצריך שום גלישה/התקנה/שימוש בלקוח דוא"ל?! הכל רק מקוד VBA?

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

אני הייתי מוסיף בדיקה לפני שליחת המייל, עם פרמטר ייעודי ו"סודי" שיתקבל מהvba ורק אם הוא קיים/תואם המייל ישלח... זה עשוי לחסוך כמה שליחות לא מורשות...

[one1010]

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

ייעודי ו"סודי"

כמו מה?
איך עושים את זה?

[צדיק תמים]

@אביי המזהה של הסקריפט בכתובת URL שנוצרת זה 72 תווים אקראיים...
אם אתה רוצה להגן מחובבנים שיודעים לעשות רק הקלטת תעבורה של נטפרי וכדומה ולא לראות את כל הבקשת HTTP, אפשר באמת להוסיף פרמטר כזה,
אבל אני מסופק כמה יש עניין....
אגב, במקרה כזה אפילו עצם השליחה בPOST ולא בGET שזה כניסה רגילה בשורת הכתובת, היא כבר מחסום

[dovid]

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

[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"

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