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

תודה!
עבד מצוין (כולל הF9).

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

@OdedDvir

@שואף כתב בהעברת קובץ אקסס למחשב אחר:

זה קובץ אקסס mdb

למיטב זכרוני בקובץ mdb אי אפשר להיכנס לחלון הVBA.

@שואף תעלה צילום של השגיאה, אחרת זה סתם לגשש באפילה.

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

Application.VBE.ActiveVBProject.VBComponents("טופס ראשי").CodeModule.DeleteLines 7, 1

האם זו אופציה מקובלת? או שיש דרך טובה יותר לזה?
תודה רבה.

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

@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 שמתי לב, עדיף ככה.