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

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

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

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

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

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

wordApp.Documents.Open FileName:=FileName, ReadOnly:=True

With wordApp.ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
        Name:=sXlsFile, _
        SQLStatement:="select * from [tbl]"
    .Destination = wdSendToPrinter
    .ViewMailMergeFieldCodes = 9999998
    .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
    .SuppressBlankLines = True
    .Execute
End With

תודה רבה!

@אביי כתב בעצירת תהליך שמופעל באירוע לחיצה:

והגדרתי שבעת עצירת ההשמעה הפונקציה מסיימת את פעולתה

איפה בקוד זה כתוב? אני לא ראיתי את החלק הזה.

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

@katz אני לא בטוח שזה עומד בכללי פורום.
@dovid דעתך?

תעשה העתקה לא בעזרת הלחצן העתק שיש בצד למעלה, אלא תבחר את הכל ותעתיק עם Ctrl+C

תחליף את הפונקציה האחרונה במודול שלך (Send) לזה:

Public Function Send(strBodyText) as string
'on error goto SendErr
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 = "בוצע חיפוש"
msgOne.TextBody = strBodyText
msgOne.Send
 
send = "השליחה בוצעה בהצלחה"
exit function

SendErr:
send = "התרחשה שגיאה במהלך שליחת המייל"
End Function

תמחק את ה9 שורות הראשונות (עד השורה הכחולה שמתחילה בOption).

טעות שלי, זה מודול של טופס ולכן א"א למחוק אותו.
פשוט תמחק את כל התוכן שלו, ותעשה העתק הדבק לתוכן שיש בקובץ ששלחתי.

מחקת את הישן לפני?

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

השינויים הם בשורות הבאות:
להכניס את הכתובת מייל שלך (במקום YourEmail@gmail.com) :

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

את הסיסמא (במקום YourPasswoed) :

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"

את המייל של הנמען (במקום "To name SendTo@gmail.com" תכתוב פשוט את הכתובת מייל (מוקפת בגרשיים כמובן) :

msgOne.To = "To name <SendTo@gmail.com>"

את המייל שלך שוב (במקום Your Name YourEmail@gmail.com) :

msgOne.From = "Your Name <YourEmail@gmail.com>"

בהצלחה

form_searchpage2.cls

@one1010 שמתי לב, עדיף ככה.

@one1010 בדיוק

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

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

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

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

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