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

@Mordechai-0
הנה הקוד שנתת לי בתור פונקציה

Public Function email() As String

    Dim toAddress As String
    Dim subjectText As String
    Dim bodyHtml As String
    Dim token As String
    Dim url As String
     
    toAddress = "123456789@gmail.com"
    subjectText = "hi"
    bodyHtml = "hi"
    token = "123456789"
    url = "https://script.google.com/macros/s/"
     
    On Error Resume Next
     
    With CreateObject("MSXML2.XMLHTTP")
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json"
        .Send "{""to"":""" & toAddress & """,""subject"":""" & subjectText & """,""body"":""" & bodyHtml & """,""token"":""" & token & """}"
        .abort
    End With
   email = "???"
   
    On Error GoTo 0

End Function

איך אני יכול לקבל את ה error (התשובה מהסקריפט) בחזרה?

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

@יהודי-טוב
תודה רבה אין מילים עובד מעולה....
וישר כח עצום ל @Mordechai-0 על העזרה הענקית בפרטי

למעשה ב vba לא ניתן לשלוח דרך שום פורט בgpt הוא נתן לי 2 פורטים ושניהם חסומים.

@יהודי-טוב כתב בשליחת מייל דרך האקסס האם אפשרי???:

אני עשיתי בכמה פרויקטים סקריפט פשוט בגוגל סקריפט,

שמקבל כתובת שולח, HTML של תוכן, ושולח מייל.

תוכל לפרט יותר איך עושים את זה השלבים וכו'...
או לתת קודים שעושים את העבודה?

@Mordechai-0 יש לי sms
תוכל לעזור לי בפרטי?

@Mordechai-0 כתב בשליחת מייל דרך האקסס האם אפשרי???:

רק באמצעות סיסמה ייעודית לאפליקציה (App Password), שניתן ליצור רק לאחר הפעלת אימות דו־שלבי (2FA) בחשבון.

זה מה שכתבתי שאני לא מצליח

כתב בשליחת מייל דרך האקסס האם אפשרי???:

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

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

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

Public Sub SendGmail()
   'creating a CDO object
   Dim Mail As Object
   Set Mail = CreateObject("CDO.Message")
 
   'Enable SSL Authentication
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   'Make SMTP authentication Enabled=true (1)
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 
   'Set the SMTP server and port Details
   'Get these details from the Settings Page of your Gmail Account
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
   "smtp.gmail.com"
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
   'Set your credentials of your Gmail Account
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
   "*******@gmail.com"
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
   "******************"
   'Update the configuration fields
   Mail.Configuration.Fields.Update
 
   'Set All Email Properties
   With Mail
      .Subject = "היי, זה אני! הבאתי לך משהו!"
      .From = "*********@gmail.com"
      .To = "*********@gmail.com"
      .CC = ""
      .BCC = ""
      .textbody = "אתה יכול לפתוח את הדוח ולהציץ, אבל רק אם בא לך..."
      .AddAttachment ("c:\user.pdf") 'To attach Documents in mail
   End With
   'to send the mail
   Mail.Send
End Sub

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

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

@one1010 ניסיתי כולל סגירה של הדפדפן ולא עזר.
יש סינון של אתרוג

@NH-LOCAL שניהם לא עזרו לי

לצערי כרגע יש לי סינון אחר ולא נטפריי אבל מופיע לי הפרסומות הנ"ל האם יש משהו שחוסם אותם?

@dovid תודה רבה על היוזמה!
בנוסף אשמח אם יהיה גם בנוסף חוסם פרסומות גם במבזקים.

וכן אם אפשר לצרף את אתר אמס (קול חי לשעבר)

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

לגבי הטיעון של י@יהודי-טוב לדעתי זה אינו נכון היות וחברות מוניות לא חסר וברור לכל שלחברת מוניות ראשונה בעיר יהיה מלא נוסעים ואידך זיל גמור.
לדעתי אתר כזה צריך להיות מסונכרן לא רק עם החנות אלא גם עם הכשרות (כמו למשל בעת הורדת כשרות מחנות יהיה ע"ז פרסום באתר... ואולי בתשלום).... אבל מאידך ספק אם הם ירצו לשתף פעולה [יש בין הכשרויות הרבה תחרות צריך להיות בזה מאד ניטראלי ושיבינו שזה באמת לטובת הציבור] לדעתי לפנות אליהם רק לאחר שהאתר עובד כבר כמה חודשים.

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

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

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

נעזרתי ב gpt וזה עובד כולל החלפת גופן

Function FindAndHit(findWhat As Variant, text As Variant) As String

    If IsNull(findWhat) Or IsNull(text) Then
        FindAndHit = IIf(IsNull(text), "", text)
        Exit Function
    End If

    Dim openTag As String
    openTag = "<font face=FrankRuehl size=5>"
    Dim closeTag As String
    closeTag = "</font>"

    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)

End Function

@pcinfogmach לא עובד כתבתי כך

openTag = "<font style=""font-size:50%"">"

יש לי את הקוד הבא ש@רחמים הביא לי כאן

Function FindAndHit(findWhat As Variant, text As Variant) As String
 
    If IsNull(findWhat) Or IsNull(text) Then
        FindAndHit = IIf(IsNull(text), "", text)
        Exit Function
    End If
 
    Dim openTag As String
    openTag = "<font style=""BACKGROUND-COLOR:#FFFF00"">"
    Dim closeTag As String
    closeTag = "</font>"
    
    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)
 
End Function

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

לאחר בדיקה אני רואה שאפשר לקשר 2 db

@avi-rz
אני מבין לפי תשובתך שלא ניתן לנהל קשרי גומלין בין 2 קבצי db שונים ללא קשר לקובץ תוכנה
כלומר יש 3 קבצים
1 תוכנה
2. db שו"ת
3 db משתמשים

ולנהל קשרי גומלין בין 2 ל3...
נכון...

@יוס זה ממש מוזר!
חיפשתי אפשרות להגדרות ולא מצאתי כלום.

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

שים לב כתוב המסלול המהיר ביותר
לעומת זאת לוויז יש את נתוני האמת ועל כן הוא נותן את המסלול הקצר
תנסה לעשות חיפוש בוויז בשעות 8 בבוקר כשסוקולוב עמוס או ב4-6 בצהריים ותראה מה התוצאה