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

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

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

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 נראה לי שהגיע הזמן שתעשה קצת גוגל על דברים שמציעים לך, לא נראה לי שזו הדרך ללמוד אקסס.
תחפש איך יוצרים שאילתה, תעשה חיפוש על כל שורת קוד שמביאים לך כדי ללמוד מה היא עושה, ובסוף כמו שכולם לומדים תדע גם אתה מה לעשות.
בהצלחה!

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

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

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

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

msgOne.Subject = "Subject"

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

msgOne.TextBody = "TextBody"

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

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

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

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

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

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