דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. ביטול הודעת אזהרה של אאוטלוק בעת שליחת איימיל מאקסס

ביטול הודעת אזהרה של אאוטלוק בעת שליחת איימיל מאקסס

מתוזמן נעוץ נעול הועבר תכנות
34 פוסטים 5 כותבים 2.6k צפיות 4 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • yossizY מחובר
    yossizY מחובר
    yossiz
    כתב ב נערך לאחרונה על ידי
    #2

    קישור זה שהעליתי בפרוג לא עזר לך?

    חייםיודלביץח תגובה 1 תגובה אחרונה
    1
    • yossizY yossiz

      קישור זה שהעליתי בפרוג לא עזר לך?

      חייםיודלביץח מנותק
      חייםיודלביץח מנותק
      חייםיודלביץ
      כתב ב נערך לאחרונה על ידי חייםיודלביץ
      #3

      @yossiz

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

      תודה

      תגובה 1 תגובה אחרונה
      0
      • yossizY מחובר
        yossizY מחובר
        yossiz
        כתב ב נערך לאחרונה על ידי
        #4

        מתוך הדף הנ"ל:

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

        מה רשום לך פה בAntivirus Status:

        חייםיודלביץח תגובה 1 תגובה אחרונה
        2
        • yossizY yossiz

          מתוך הדף הנ"ל:

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

          מה רשום לך פה בAntivirus Status:

          חייםיודלביץח מנותק
          חייםיודלביץח מנותק
          חייםיודלביץ
          כתב ב נערך לאחרונה על ידי
          #5

          @yossiz

          אכן ניסתי כמו שכתוב ונכנסתי כמנהל ואז הוא נתן לי לשנות

          למטה רשום לי אנטי וירוס חוקי

          אבל עדיין גם אחרי שהגדרתי אותו שלא ישלח התראות[האפשרות השלישית] הוא עדיין נותן לי את ההתראה הנ"ל!

          תודה.

          תגובה 1 תגובה אחרונה
          0
          • yossizY מחובר
            yossizY מחובר
            yossiz
            כתב ב נערך לאחרונה על ידי
            #6

            בשלב זה אני מרים ידיים
            אולי תבדוק בregistry כפי ההוראות בדף הנ"ל.

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

            תגובה 1 תגובה אחרונה
            2
            • חייםיודלביץח מנותק
              חייםיודלביץח מנותק
              חייםיודלביץ
              כתב ב נערך לאחרונה על ידי
              #7

              אולי מישהו יודע?

              איך כולם שולחים מייל מאקסס?

              הדבר חשוב ודחוף לי
              אשמח מאד מאד לעזרה!!

              בתודה מראש

              clickoneC תגובה 1 תגובה אחרונה
              0
              • חייםיודלביץח חייםיודלביץ

                אולי מישהו יודע?

                איך כולם שולחים מייל מאקסס?

                הדבר חשוב ודחוף לי
                אשמח מאד מאד לעזרה!!

                בתודה מראש

                clickoneC מנותק
                clickoneC מנותק
                clickone
                כתב ב נערך לאחרונה על ידי
                #8

                @חייםיודלביץ
                שולחים עם אובייקט CDO.
                בעבר העלתי כאן דוגמאות קוד (זה בתיכנות אקסלוסיבי. אם אין לך מנוי שם תכתוב ואני אדביק כאן את הפונקצייה ששמתי שם [אפשרות אחרת זה לשלם מנוי לפורום הזה. מנסיון - שווה כל שקל])
                http://tchumim.com/post/27711

                אין טסט כמו פרודקשן.

                המייל שלי urivpn@gmail.com

                yossizY תגובה 1 תגובה אחרונה
                2
                • חייםיודלביץח מנותק
                  חייםיודלביץח מנותק
                  חייםיודלביץ
                  כתב ב נערך לאחרונה על ידי חייםיודלביץ
                  #9

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

                  cdo עובד דרך אאוטלוק? ובעצם אשמח לדעת מה זה בכללץ
                  אשמח מאד מאד אם תוכל לעלות את הקוד!
                  בתודה רבה רבה מראש

                  clickoneC תגובה 1 תגובה אחרונה
                  0
                  • חייםיודלביץח חייםיודלביץ

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

                    cdo עובד דרך אאוטלוק? ובעצם אשמח לדעת מה זה בכללץ
                    אשמח מאד מאד אם תוכל לעלות את הקוד!
                    בתודה רבה רבה מראש

                    clickoneC מנותק
                    clickoneC מנותק
                    clickone
                    כתב ב נערך לאחרונה על ידי
                    #10

                    @חייםיודלביץ לדעתי תנסה לפחות חודש.
                    תראה שזה שווה כל שקל. במיוחד אם אתה מתחיל. (אין לי אחוזים שם 😛 )
                    ה8 ש"ח האלו זה פחות מ2 שקיות חלב בחודש. והזמן שזה יחסוך לך שווה המון.

                    CDO זה האובייקט שדרכו אאוטלוק עובר.
                    מצ"ב הקוד

                    
                           Function SendMail(sEmail As String, Title As String, sText As String, Optional sFile As String = "") As String
                    On Error Resume Next
                    Dim cdomsg As Object
                    Set cdomsg = CreateObject("CDO.message")
                    With cdomsg.Configuration.Fields
                    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
                    .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") =  465
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =  True
                    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
                    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com"
                    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
                    .update
                    End With
                    ' build email parts
                    With cdomsg
                    .To = "to@gmail.com"
                    .From = "from@gmail.com"
                    '.sender =
                    .Subject =  "Subject"
                    If Me.HtmlBody Then
                      .HtmlBody = sText
                    Else
                        .TextBody =  '"the full message body goes here. you may want to create a variable to hold the text"
                    End If
                    
                    If Len(sFile) > 0 Then
                        Dim arr As Variant
                         arr = Split(sFile, ";")
                            For i = 0 To UBound(arr)
                                    If Len(arr(i)) > 0 Then
                                        If Dir(CStr(arr(i)), vbNormal) <> vbNullString Then
                                            .AddAttachment arr(i)
                                        End If
                                    End If
                               
                            Next
                                End If
                    
                    .Send
                    End With
                        Set cdomsg = Nothing
                    If Err = 0 Then
                    SendMail = "Mail Send"
                    Else
                    SendMail = Err.Description
                    End If
                    End Function
                    

                    אין טסט כמו פרודקשן.

                    המייל שלי urivpn@gmail.com

                    חייםיודלביץח תגובה 1 תגובה אחרונה
                    2
                    • clickoneC clickone

                      @חייםיודלביץ
                      שולחים עם אובייקט CDO.
                      בעבר העלתי כאן דוגמאות קוד (זה בתיכנות אקסלוסיבי. אם אין לך מנוי שם תכתוב ואני אדביק כאן את הפונקצייה ששמתי שם [אפשרות אחרת זה לשלם מנוי לפורום הזה. מנסיון - שווה כל שקל])
                      http://tchumim.com/post/27711

                      yossizY מחובר
                      yossizY מחובר
                      yossiz
                      כתב ב נערך לאחרונה על ידי
                      #11
                      פוסט זה נמחק!
                      clickoneC תגובה 1 תגובה אחרונה
                      0
                      • yossizY yossiz

                        פוסט זה נמחק!

                        clickoneC מנותק
                        clickoneC מנותק
                        clickone
                        כתב ב נערך לאחרונה על ידי clickone
                        #12

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

                        אין טסט כמו פרודקשן.

                        המייל שלי urivpn@gmail.com

                        תגובה 1 תגובה אחרונה
                        2
                        • clickoneC clickone

                          @חייםיודלביץ לדעתי תנסה לפחות חודש.
                          תראה שזה שווה כל שקל. במיוחד אם אתה מתחיל. (אין לי אחוזים שם 😛 )
                          ה8 ש"ח האלו זה פחות מ2 שקיות חלב בחודש. והזמן שזה יחסוך לך שווה המון.

                          CDO זה האובייקט שדרכו אאוטלוק עובר.
                          מצ"ב הקוד

                          
                                 Function SendMail(sEmail As String, Title As String, sText As String, Optional sFile As String = "") As String
                          On Error Resume Next
                          Dim cdomsg As Object
                          Set cdomsg = CreateObject("CDO.message")
                          With cdomsg.Configuration.Fields
                          .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
                          .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
                          .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") =  465
                          .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                          .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =  True
                          .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
                          .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com"
                          .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
                          .update
                          End With
                          ' build email parts
                          With cdomsg
                          .To = "to@gmail.com"
                          .From = "from@gmail.com"
                          '.sender =
                          .Subject =  "Subject"
                          If Me.HtmlBody Then
                            .HtmlBody = sText
                          Else
                              .TextBody =  '"the full message body goes here. you may want to create a variable to hold the text"
                          End If
                          
                          If Len(sFile) > 0 Then
                              Dim arr As Variant
                               arr = Split(sFile, ";")
                                  For i = 0 To UBound(arr)
                                          If Len(arr(i)) > 0 Then
                                              If Dir(CStr(arr(i)), vbNormal) <> vbNullString Then
                                                  .AddAttachment arr(i)
                                              End If
                                          End If
                                     
                                  Next
                                      End If
                          
                          .Send
                          End With
                              Set cdomsg = Nothing
                          If Err = 0 Then
                          SendMail = "Mail Send"
                          Else
                          SendMail = Err.Description
                          End If
                          End Function
                          
                          חייםיודלביץח מנותק
                          חייםיודלביץח מנותק
                          חייםיודלביץ
                          כתב ב נערך לאחרונה על ידי חייםיודלביץ
                          #13

                          @clickone ווואו! תודה!

                          ב to לרשום את הכתובת, אך מה זה From?

                          אשמח אם תכול להסביר לי קצת על הפרמטרים של הקוד

                          יש אפשרות גם לצרף קבצים כלומר דוח?

                          ושוב תודה רבה רבה!!

                          clickoneC תגובה 1 תגובה אחרונה
                          1
                          • חייםיודלביץח חייםיודלביץ

                            @clickone ווואו! תודה!

                            ב to לרשום את הכתובת, אך מה זה From?

                            אשמח אם תכול להסביר לי קצת על הפרמטרים של הקוד

                            יש אפשרות גם לצרף קבצים כלומר דוח?

                            ושוב תודה רבה רבה!!

                            clickoneC מנותק
                            clickoneC מנותק
                            clickone
                            כתב ב נערך לאחרונה על ידי
                            #14

                            @חייםיודלביץ
                            TO זה לאן לשלוח
                            FROM זה הכתובת שתוצג ככתובת השולחת. לא זוכר כעת כמה זה עובד בגימייל. (בשרתים אחרים זה עובד מצויין)
                            sFile זה הקובץ לצרף למייל.
                            אם אתה רוצה לצרף כמה, תפריד בי שמות הקבצים עם נקודה פסיק = ;
                            שים לב שצריך לשים נתיב מלא לקובץ

                            אין טסט כמו פרודקשן.

                            המייל שלי urivpn@gmail.com

                            חייםיודלביץח תגובה 1 תגובה אחרונה
                            1
                            • clickoneC clickone

                              @חייםיודלביץ
                              TO זה לאן לשלוח
                              FROM זה הכתובת שתוצג ככתובת השולחת. לא זוכר כעת כמה זה עובד בגימייל. (בשרתים אחרים זה עובד מצויין)
                              sFile זה הקובץ לצרף למייל.
                              אם אתה רוצה לצרף כמה, תפריד בי שמות הקבצים עם נקודה פסיק = ;
                              שים לב שצריך לשים נתיב מלא לקובץ

                              חייםיודלביץח מנותק
                              חייםיודלביץח מנותק
                              חייםיודלביץ
                              כתב ב נערך לאחרונה על ידי
                              #15

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

                              יש אפשרות בצירוף קובץ לשלוח דוח מתוך האקסס בפורמט PDF כמו שניתן במאקרו של שליחת מייל ?

                              תודה רבה רבה על העזרה!!

                              clickoneC תגובה 1 תגובה אחרונה
                              0
                              • חייםיודלביץח חייםיודלביץ

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

                                יש אפשרות בצירוף קובץ לשלוח דוח מתוך האקסס בפורמט PDF כמו שניתן במאקרו של שליחת מייל ?

                                תודה רבה רבה על העזרה!!

                                clickoneC מנותק
                                clickoneC מנותק
                                clickone
                                כתב ב נערך לאחרונה על ידי
                                #16

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

                                Dim ssfile As String
                                ssfile = CurrentProject.Path & "\" & "rptName" & Format(Now, "ddmmyynnss") & ".pdf"
                                sFile = ssfile
                                    DoCmd.OutputTo 3, srpt, acFormatPDF, ssfile, False, , , acExportQualityPrint
                                
                                

                                ואז תעביר לפונקצייה את sFile

                                אין טסט כמו פרודקשן.

                                המייל שלי urivpn@gmail.com

                                חייםיודלביץח תגובה 1 תגובה אחרונה
                                3
                                • clickoneC clickone

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

                                  Dim ssfile As String
                                  ssfile = CurrentProject.Path & "\" & "rptName" & Format(Now, "ddmmyynnss") & ".pdf"
                                  sFile = ssfile
                                      DoCmd.OutputTo 3, srpt, acFormatPDF, ssfile, False, , , acExportQualityPrint
                                  
                                  

                                  ואז תעביר לפונקצייה את sFile

                                  חייםיודלביץח מנותק
                                  חייםיודלביץח מנותק
                                  חייםיודלביץ
                                  כתב ב נערך לאחרונה על ידי
                                  #17

                                  @clickone כלומר זה ייצא אותו לתקייה זמנית במחשב, לא בתוך האקסס נכון?

                                  באיזה שורה למקם אותו במודול?

                                  תודה רבה רבה! שימחת אותי מאד בעזרה שלך!

                                  clickoneC תגובה 1 תגובה אחרונה
                                  0
                                  • חייםיודלביץח חייםיודלביץ

                                    @clickone כלומר זה ייצא אותו לתקייה זמנית במחשב, לא בתוך האקסס נכון?

                                    באיזה שורה למקם אותו במודול?

                                    תודה רבה רבה! שימחת אותי מאד בעזרה שלך!

                                    clickoneC מנותק
                                    clickoneC מנותק
                                    clickone
                                    כתב ב נערך לאחרונה על ידי
                                    #18

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

                                    אין טסט כמו פרודקשן.

                                    המייל שלי urivpn@gmail.com

                                    תגובה 1 תגובה אחרונה
                                    2
                                    • חייםיודלביץח מנותק
                                      חייםיודלביץח מנותק
                                      חייםיודלביץ
                                      כתב ב נערך לאחרונה על ידי
                                      #19

                                      תודה!
                                      בפועל אני רואה שאני בכלל לא מסתדר
                                      מצ"ב הקובץ שאיתו אני מנסה
                                      בטופס פרטי איש קשר הוספתי לחצן "שלח מייל" וכתבתי את הפרמטרים אבל הוא נותן לי שגיאה "שגיאה בהקלדה"
                                      בתודה מראש
                                      0_1542146893129_אנשי קשר.accdb

                                      clickoneC תגובה 1 תגובה אחרונה
                                      0
                                      • חייםיודלביץח חייםיודלביץ

                                        תודה!
                                        בפועל אני רואה שאני בכלל לא מסתדר
                                        מצ"ב הקובץ שאיתו אני מנסה
                                        בטופס פרטי איש קשר הוספתי לחצן "שלח מייל" וכתבתי את הפרמטרים אבל הוא נותן לי שגיאה "שגיאה בהקלדה"
                                        בתודה מראש
                                        0_1542146893129_אנשי קשר.accdb

                                        clickoneC מנותק
                                        clickoneC מנותק
                                        clickone
                                        כתב ב נערך לאחרונה על ידי
                                        #20

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

                                        אין טסט כמו פרודקשן.

                                        המייל שלי urivpn@gmail.com

                                        חייםיודלביץח תגובה 1 תגובה אחרונה
                                        3
                                        • clickoneC clickone

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

                                          חייםיודלביץח מנותק
                                          חייםיודלביץח מנותק
                                          חייםיודלביץ
                                          כתב ב נערך לאחרונה על ידי
                                          #21

                                          @clickone תודה!

                                          איפה הוספת את הקוד של להמיר לPDF?

                                          תודה.

                                          clickoneC תגובה 1 תגובה אחרונה
                                          0
                                          תגובה
                                          • תגובה כנושא
                                          התחברו כדי לפרסם תגובה
                                          • מהישן לחדש
                                          • מהחדש לישן
                                          • הכי הרבה הצבעות


                                          • 1
                                          • 2
                                          בא תתחבר לדף היומי!
                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • דף הבית
                                          • קטגוריות
                                          • פוסטים אחרונים
                                          • משתמשים
                                          • חיפוש
                                          • חוקי הפורום