@dovid לא עזר
תודה.
ארי
-
שליחת מייל מאקסס - עיצוב html -
שליחת מייל מאקסס - עיצוב htmlדוגמת קוד:
Private Function sendEmail() Dim cdoConfig Dim msgOne Dim Html As String Html = "<div dir=" & Chr(34) & "rtl" & Chr(34) & ">" Html = Html & "<div>לכבוד פלוני אלמוני</div>" Html = Html & "<div>להלן קישור לפורום תחומים.</div>" Html = Html & "<div><a href=""https://tchumim.com/post/149773"">לחצו כאן למעבר לפורום.</a><br></div>" Html = Html & "<div><br></div>" Html = Html & "<div>תודה.<br></div>" Html = Html & "<div class=" & Chr(34) & "yj6qo" & Chr(34) & "></div><div class=" & Chr(34) & "adL" & Chr(34) & "><br></div></div>" 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") = "mygmail@gmail.com" .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass" .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 = "yourgmail.com" msgOne.FROM = "my name <mygmail@gmail.com>" msgOne.Subject = "mail with html" msgOne.HTMLBody = Html msgOne.send End Function
תודה!
-
שליחת מייל מאקסס - עיצוב html@Y-Excel-Access האמת שאני ממש לא יודע איך להסתכל אפילו על Apps Script, אף פעם לא עבדתי עם זה.
אבל שים לב שכשאני פותח את המייל בג'ימייל הוא מוצג בצורה תקינה, רק ב'דואר' של ווינדוס זה ככה.
אולי זה יכול להוביל לפיתרון? -
שערים יציגים מבנק ישראל - VBA אקסס@שמעון-חבצלת א. אתה צריך להוסיף לreferences את Microsoft scripting runtime.
ב. אתה יכול ליצור טבלה ובה לשמור את הערך האחרון שמתקבל בכל קריאה. -
שליחת מייל מאקסס - עיצוב html@Y-Excel-Access ויש איך לתקן את זה?
תודה. -
שערים יציגים מבנק ישראל - VBA אקסס@שמעון-חבצלת סליחה, שכחתי לציין שצריך קוד שממיר Json לאקסס.
תוסיף את הקוד שיש בקובץ המצורף לVBA שלך (בתוך חלון הVBA בצד ימין איפה שכל המודולים, לחיצה על המקש הימני בעכבר ועל ייבוא מקובץ). -
שערים יציגים מבנק ישראל - VBA אקסס@מלא תוקן.
תודה. -
שליחת מייל מאקסס - עיצוב htmlבוקר טוב.
יש לי קוד לשליחת מייל מאקסס, והטקסט שהוא שולח מעוצב ע"י html.
הוא עובד מצוין, ואם פותחים את המייל בג'ימייל זה נראה מעולה.
הבעיה היא שאם אני פותח אותו בתוכנת דואר של ווינדוס (אולי גם בעוד תוכנות, לא בדקתי) זה נראה ככה:
מישהו יודע למה זה קורה?
תודה! -
שערים יציגים מבנק ישראל - VBA אקסס@שמעון-חבצלת באירוע בעת לחיצה כפולה אתה שם
me.shekel = me.dollar * GetExchangeRates.sum
-
אתר שנראה ממש חמוד ללימוד SQL Server בחינם -
אוטומציה של Edge@yossiz תודה.
אני אכן משתמש בVBA באקסס, סורי על השמטת המידע הזה.
תודה על הקישורים, אבל לא הצלחתי להבין איך להשתמש בספרייה לצורך זה. וכן מהקוד Python כמובן שלא הצלחתי להבין מה קורה שם.
האם מישהו ניסה דבר כזה באקסס? או שיכול קצת להדריך אותי בשימוש בספרייה הנ"ל?
שוב תודה. -
אוטומציה של Edgeצהריים טובים.
אני מעוניין בקוד שיכול להחזיר לי רשימה של כל הכרטיסיות הפתוחות בדפדפן Edge.
בדפדפן הישן IE היה API שיכל להחזיר את זה, אבל בEdge אין משהו ברור בעניין.
מצאתי כאן שרשור בעניין ובפוסט הזה בשיטה השניה משהו כמו שרציתי.
הבעיה היא שהקוד שם אמנם יכול להחזיר כתובות url פתוחות, אבל רק אם הדפדפן נפתח באמצעות הקוד. ולא הצלחתי לשחק איתו כך שיחזיר את הכתובות שכבר היו פתוחות.
האם מישהו מכיר את הקוד הנ"ל או קוד אחר שיכול להחזיר את הכתובות הפתוחות?
תודה רבה! -
מיזוג דואר מאקסס@clickone אנסה.
תודה. -
מיזוג דואר מאקסס@clickone בכל המסמכים.
לפעמיים הוא עובד טוב, ולפעמיים מקפיץ את זה.
רק אחרי שלוחצים לו שיהפוך מאקרו ללא זמין הוא מדפיס את הקובץ כמו שצריך. -
חיבור סורק ברקוד לאקסס@איש-פלוני תגיד, הטופס נפתח בתצוגת טופס או כטבלה?
-
חיבור סורק ברקוד לאקסס@איש-פלוני שתי השורות שהבאת הם כל הקוד?
או שיש חלק שאתה לא מראה לנו? -
חיבור סורק ברקוד לאקסס@איש-פלוני מה קורה כשאתה כותב כך:
DoCmd.OpenForm "מחברקודספרברקוד", acFormDS, , "ID = " & ScanValue Form_מחברקודספרברקוד.מדף.SetFocus
-
מיזוג דואר מאקסס@clickone אין מאקרו בוורד.
ואני ממזג קובץ אקסל שייוצא מאקסס (בקוד לפני).
תודה. -
מיזוג דואר מאקססשלום וברכה.
יש לי קוד למיזוג דואר לקובץ וורד קיים, ומיד פעם קופצה לי ההודעה הזו:
למה זה קורה?הקוד שלי הוא:
Public Function PrintDocument(FileName As String) On Error Resume Next Dim wordApp As New Word.Application Dim sXlsFile As String sXlsFile = CurrentProject.Path & "\XlsFile.xlsx" wordApp.Documents.Open FileName:=FileName, ReadOnly:=True If Err <> 0 Then MsgBox "התרחשה שגיאה בפתיחת הוורד", vbOKOnly + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading: Exit Function On Error GoTo 1 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 1: wordApp.Quit False Set wordApp = Nothing End Function
תודה!
-
קבלת ערך Enum ממספר - VBA@Y-Excel-Access אכן במקרה כזה הקוד לא יעבוד.
אמנם הוא לא מחזיר שגיאה, אבל גם לא את הערך המבוקש.