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

@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, מה שאומר שהוא לא באמת מצליח להוריד.

@חוקר לא.
אחרי כמה ימים.
הקבלה קיימת כבר, ואפשר להוריד אותה דרך האתר, אבל אני מחפש API שיעשה את זה.
תודה.

שלום וברכה.
אני משתמש בפלטפורמה של איזיקאונט (www.ezcount.co.il) להנפקה של קבלות.
אני מנסה לכתוב קוד להוריד קבלות אחרי שהם כבר הונפקו באמצעות הקישור של הקבלה.
אמנם בקודים הרגילים של ההורדה (URLDownloadToFile וכדו') אני נתקל בשגיאות.
האם מישהו משתמש באתר שלהם ויש לו ניסיון בזה?
יצויין שאני מנסה להוריד דרך VBA באקסס.
תודה רבה.

@laswater כתב בבאקסס- עדכון ממשק ללא איבוד נתונים:

אני חושב שהמיקום נשמר!

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

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

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

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

@chagold גם זה אפשרות
https://data.gov.il/dataset/moag-district