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

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

מצורף קובץ חדש.
תמחק את המודול הישן, ואז תעלה את החדש לתוכנה (מקש ימני כנ"ל ואז 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 זה ממש לא תקין.
אם אתה רוצה שלא רק יתנו לך בכפית אלא גם יאכילו אותך, ואתה לא רוצה להעלות את הקובץ שלך לכאן. אתה יכול לייצא רק את המודול VBA לקובץ ואתו להעלות.
ככה אולי @מלא ירצה לעזור לך יותר...
תעמוד בחלון הVBA על הטופס שבו נמצא הקוד הנ"ל, תלחץ על מקש ימני, ואז על Export File, ותשמור אותו במחשב.
לאמח"כ תעלה לכאן את הקובץ הזה, ונראה אם יהיה קל יותר לעזור לך.

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

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

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

@one1010 כתב בGPT-4 כישוריו בהמצאת תשובות:

אבל בלי קשר, זה שלכלב יש 4 רגליים ולא 5 זה כבר נמצא במדע הישן והוא לא צריך להתעדכן דווקא ממידע חדש

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

@חוקר לא.
אחרי כמה ימים.
הקבלה קיימת כבר, ואפשר להוריד אותה דרך האתר, אבל אני מחפש API שיעשה את זה.
תודה.

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

@one1010 אתה בטוח שהיא לא נמצאת במנהל משימות?
זה אמור להופיע בתור תהליך ברקע.

@ארי כתב בעריכת קובץ שאילתת אקסס:

תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.

מה קורה כשאתה עושה את זה?

@dovid האמת שזה לא כ"כ נצרך.
יותר סקרנות, ומחשבה שאולי יש איזה שגיאה באתר שיכולה להתנקם בי בהמשך גם באקסס.

@mekev לא נשלח פרמטר של תאריך.
זה הפרמטרים שנשלחים (מתוך הדוגמא באתר).

{
  "Details": {
    "ExternalIdentifier": null,
    "NoVAT": null,
    "SearchMode": null,
    "Name": "Danny Dean",
    "Phone": "050-1234567",
    "EmailAddress": "danny@dean.com",
    "City": null,
    "Address": null,
    "ZipCode": null,
    "CompanyNumber": "514000123",
    "ID": null,
    "Folder": null
  },
  "Credentials": {
    "CompanyID": 12345678,
    "APIKey": "AsOUq8u8Mk80G4IZ7AZEYhKccOEzHy9HQBNuf41jBGN6mekFIN"
  },
  "ResponseLanguage": null
}

זה בקשה להוספת לקוח במערכת (לא של הנפקת קבלה בפועל)
תודה!

@mekev אכן התובנות נכונות.

סתם בשביל הרחבת הידע, יש קשר בין התאריך של המחשב לפעולות שהוא מבצע ברשת?

@mekev זה תמונה מאתמול.....
למה התאריך אמור להשפיע?

@סקרן-0 רק כדי להבין.
יש לך טבלת לקוחות, טבלת אנשי שיווק, וטבלה שמכילה קוד לקוח וקוד האיש שיווק שלו?

@Shmuel754 תודה, אבל התשובה כאן פתרה את הבעיה.
תודה לכולם!

דוגמת קוד:

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

תודה!

@clickone אנסה.
תודה.

@Y-Excel-Access אכן במקרה כזה הקוד לא יעבוד.
אמנם הוא לא מחזיר שגיאה, אבל גם לא את הערך המבוקש.

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

Option Compare Database
Option Explicit

Public Enum EnumTest
    a = 1
    b = 2
    c = 3
    E = 15
End Enum

Public Function FindEnumString(EnumNum As String, EnumName As String, Optional ModuleName As String) As String
Dim ModStr As String
Dim EnumStr() As String
Dim i

If ModuleName = "" Then ModuleName = VBE.ActiveCodePane.CodeModule

ModStr = VBE.ActiveVBProject.VBComponents.item(ModuleName).CodeModule.Lines(1, VBE.ActiveVBProject.VBComponents.item(ModuleName).CodeModule.CountOfLines)
ModStr = Mid(ModStr, InStr(1, ModStr, "Enum " & EnumName) + Len("Enum " & EnumName), InStr(1, ModStr, "End Enum") - (InStr(1, ModStr, "Enum " & EnumName) + Len("Enum " & EnumName)))

EnumStr = Split(ModStr, vbCrLf)
For i = LBound(EnumStr) To UBound(EnumStr)
    If Trim(Right(EnumStr(i), Len(EnumStr(i)) - InStr(1, EnumStr(i), "="))) = EnumNum Then
        FindEnumString = Trim(Left(EnumStr(i), InStr(1, EnumStr(i), "=") - 1))
    End If
Next i
End Function

Public Function test()
Dim En As String
En = EnumTest.b

Debug.Print En & " (" & FindEnumString(En, "EnumTest") & ")"
End Function