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

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

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

או מיזוג ושמירה לקובץ PDF (ושליחה אוטו' אח"כ במייל) עם הקוד הבא:

wordApp.Documents.Open FileName:=FileName, ReadOnly:=False
With wordApp.ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
        Name:=sXlsFile, _
        SQLStatement:="select * from [טופס]"
    .Destination = wdSendToNewDocument
    .ViewMailMergeFieldCodes = False
    .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
    .SuppressBlankLines = True
    .Execute
End With
wordApp.ActiveDocument.SaveAs2 path & "\" & rs!שם_טופס & ".pdf", wdFormatPDF
wordApp.Quit False
Set wordApp = Nothing

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

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

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

Sub sendOutlookEmail()
Dim oApp As New Outlook.Application
Dim oMail As MailItem

Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Body of the email"
oMail.Subject = "Test Subject"
oMail.To = "Someone@somewhere.com"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing
End Sub

אבל אני לא מוצר איפה אני מגדיר את השם משתמש וסיסמא של החשבון.
האם יש אפשרות כזו? או שזה רק כאשר המייל הוא ברירת מחדל במחשב?
תודה רבה!

תודה.
בסוף עשיתי באמת ייבוא עם קוד VBA והלך בקלות.

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

@מלא תודה.
אבל זה כבר מסובך מדי.
יותר פשוט לשים פרמטר של שם התווית בקוד.
רציתי לחסוך את זה, אבל לא חשבתי שזה מסובך כ"כ.
שוב תודה.

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

ActiveControl.Name

הוא מחזיר את שם השדה שבו הפקד נמצא, ולא את מה שלחצו עליו.
יש איך למצוא את שם התווית?
תודה רבה!

@מלא תודה!
בדיוק מה שהייתי צריך.

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

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

@מטעמים אני מצטרף למה ש@dovid אומר.
בלי ההתעקשות לבחור תיקייה אחת ולא את התיקייה הראשית, אתה צריך קוד פשוט של לולאה (כן, לולאה!) מ1 ועד 12 שפותחת את הקבצים אחד אחרי השני.

@מלא אני חושב שבסוף @מטעמים הסביר מצוין מה הוא רוצה.

@מטעמים כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

נניח שאנחנו בחודש 11 ואני רוצה שיהיה כתוב בתא מקביל את החודש שיגמר הסמסטר, 4 חודשים קדימה. (חודש 03)

או נוסחה כזו באקסל:

=MOD(A1+4,12)

אני רק ממשיך את @ivrtikshoret :

i = 1
Do
    If i < 13 Then
        MsgBox i
    Else
        MsgBox i Mod 12
    End If
    i = i + 1
Loop

@מטעמים כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

(וגם שלא יהיה בתוך לולאה)

איך אתה רוצה להוסיף חודשים בלי לולאה?
אני לא בטוח שאפשר.

אם אתה רוצה עם לולאה אולי משהו כזה:

for a = 1 to 100
    for b = 1 to 12
        msgbox b
    text b
text a

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

@ששש אתה רוצה את רשימת התחנות של כל קו שפעיל היום?

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

עריכה: תראה כאן הקוד בעמודה office_line_id לדעתי הוא אותו קוד שיש לך בroute_id.

@ששש אני רק מנסה להבין מה הצורך שלך?
אתה רוצה את כל התחנות של כל האוטובוסים בארץ?

@ששא הנתונים של https://data.gov.il/ לא טובים לך?
לדוג' זה או זה.