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

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

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

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

מתוזמן נעוץ נעול הועבר תכנות
34 פוסטים 5 כותבים 2.6k צפיות 4 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • 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
                        • חייםיודלביץח חייםיודלביץ

                          @clickone תודה!

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

                          תודה.

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

                          @חייםיודלביץ
                          לא הוספתי.
                          כי הבנתי שאתה רוצה קודם לפתור את הבעייה הספציפית הזו.
                          איזה דוח אתה רוצה לייצא?

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

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

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

                            @חייםיודלביץ
                            לא הוספתי.
                            כי הבנתי שאתה רוצה קודם לפתור את הבעייה הספציפית הזו.
                            איזה דוח אתה רוצה לייצא?

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

                            @clickone לדוגמא "רשימת אנשי קשר"

                            תודה רבה על המאמץ לעזור!

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

                              @clickone לדוגמא "רשימת אנשי קשר"

                              תודה רבה על המאמץ לעזור!

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

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

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

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

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

                                @clickone תודה רבה רבה על כל ההשקעה!

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

                                שימחת אותי מאד מאד!

                                את הקובץ האחרון אני ינסה ללמוד כבר מחר .

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

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

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

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

                                  @clickone זה פשוט עובד מדהים!!

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

                                  זה קשור לשורה הזאת לא?

                                  MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)
                                  

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

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

                                    @clickone זה פשוט עובד מדהים!!

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

                                    זה קשור לשורה הזאת לא?

                                    MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)
                                    

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

                                    WWWW מנותק
                                    WWWW מנותק
                                    WWW
                                    כתב ב נערך לאחרונה על ידי
                                    #27

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

                                    זה קשור לשורה הזאת לא?

                                     MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)
                                    
                                    

                                    תודה רבה רבה

                                    תסיר את המילה MsgBox.

                                    WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

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

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

                                      זה קשור לשורה הזאת לא?

                                       MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)
                                      
                                      

                                      תודה רבה רבה

                                      תסיר את המילה MsgBox.

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

                                      @www נסיתי הוא מחזיר שגיאה השורה נהפכת לאדומה.

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

                                        @www נסיתי הוא מחזיר שגיאה השורה נהפכת לאדומה.

                                        WWWW מנותק
                                        WWWW מנותק
                                        WWW
                                        כתב ב נערך לאחרונה על ידי
                                        #29

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

                                        @www נסיתי הוא מחזיר שגיאה השורה נהפכת לאדומה.

                                        במקום זה תכתוב:

                                        Send =
                                        

                                        WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

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

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

                                          @www נסיתי הוא מחזיר שגיאה השורה נהפכת לאדומה.

                                          במקום זה תכתוב:

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

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

                                          Send =

                                          תודה, אכן עובד מצוין!

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


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

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

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