תחומים - פורום חרדי מקצועי

@one1010 בדיוק

@one1010 זה ממש לא תקין.
אם אתה רוצה שלא רק יתנו לך בכפית אלא גם יאכילו אותך, ואתה לא רוצה להעלות את הקובץ שלך לכאן. אתה יכול לייצא רק את המודול VBA לקובץ ואתו להעלות.
ככה אולי @מלא ירצה לעזור לך יותר...
תעמוד בחלון הVBA על הטופס שבו נמצא הקוד הנ"ל, תלחץ על מקש ימני, ואז על Export File, ותשמור אותו במחשב.
לאמח"כ תעלה לכאן את הקובץ הזה, ונראה אם יהיה קל יותר לעזור לך.

@מלא כתב בשמירת שאילתא באקסס:

נורא מסקרן אותי אם בנית את המערכת לבד או לקחת משהו קיים ומנסה להוסיף בו משהו.

זה תוכנה מוכרת (ולא חוקית....)

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

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

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

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

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

msgOne.Subject = "Subject"

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

msgOne.TextBody = "TextBody"

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

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

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

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

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

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

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

אתה כותב בתוך הקוד בשורות האלו:

    .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"

את הכתובת מייל שאתה רוצה שישלח ממנה המייל, ואת הסיסמא (לא הרגילה של הג'ימייל אלא סיסמא לאפליקציות).
אין אפשרות לשלוח מייל בלי להכניס כתובת מייל וסיסמא.

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 כתב בGPT-4 כישוריו בהמצאת תשובות:

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

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

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

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

@מלא עובד לי!
ממש תודה!

@מלא יש לך דוגמא של קישור לתת לי?
לא משהו אמיתי רק אני רוצה לראות עם איזה סוג קישור אתה משתמש.
תודה.

@מלא מוזר.
כי הקישורים עובדים לי, וכשניסיתי להריץ אותו על איזה 70 קבלות בערך חצי מהם הוא לא הוריד.

@מלא את הקוד הזה אני מכיר. תודה.
אבל יש חלק מהקבלות שהוא מוריד אותם והקובץ הוא בגודל 2KB, מה שאומר שהוא לא באמת מצליח להוריד.