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

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

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

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

מתוזמן נעוץ נעול הועבר תכנות
34 פוסטים 5 כותבים 2.6k צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • 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
    • yossizY מנותק
      yossizY מנותק
      yossiz
      השיב לclickone ב נערך לאחרונה על ידי
      #11
      פוסט זה נמחק!
      clickoneC תגובה 1 תגובה אחרונה
      0
      • clickoneC מנותק
        clickoneC מנותק
        clickone
        השיב לyossiz ב נערך לאחרונה על ידי clickone
        #12

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

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

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

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

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

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

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

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

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

          clickoneC תגובה 1 תגובה אחרונה
          1
          • clickoneC מנותק
            clickoneC מנותק
            clickone
            השיב לחייםיודלביץ ב נערך לאחרונה על ידי
            #14

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

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

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

            חייםיודלביץח תגובה 1 תגובה אחרונה
            1
            • חייםיודלביץח מנותק
              חייםיודלביץח מנותק
              חייםיודלביץ
              השיב לclickone ב נערך לאחרונה על ידי
              #15

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

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

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

              clickoneC תגובה 1 תגובה אחרונה
              0
              • 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
                • חייםיודלביץח מנותק
                  חייםיודלביץח מנותק
                  חייםיודלביץ
                  השיב לclickone ב נערך לאחרונה על ידי
                  #17

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

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

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

                  clickoneC תגובה 1 תגובה אחרונה
                  0
                  • clickoneC מנותק
                    clickoneC מנותק
                    clickone
                    השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                    #18

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

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

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

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

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

                      clickoneC תגובה 1 תגובה אחרונה
                      0
                      • clickoneC מנותק
                        clickoneC מנותק
                        clickone
                        השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                        #20

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

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

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

                        חייםיודלביץח תגובה 1 תגובה אחרונה
                        3
                        • חייםיודלביץח מנותק
                          חייםיודלביץח מנותק
                          חייםיודלביץ
                          השיב לclickone ב נערך לאחרונה על ידי
                          #21

                          @clickone תודה!

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

                          תודה.

                          clickoneC תגובה 1 תגובה אחרונה
                          0
                          • clickoneC מנותק
                            clickoneC מנותק
                            clickone
                            השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                            #22

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

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

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

                            חייםיודלביץח תגובה 1 תגובה אחרונה
                            1
                            • חייםיודלביץח מנותק
                              חייםיודלביץח מנותק
                              חייםיודלביץ
                              השיב לclickone ב נערך לאחרונה על ידי
                              #23

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

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

                              clickoneC תגובה 1 תגובה אחרונה
                              0
                              • clickoneC מנותק
                                clickoneC מנותק
                                clickone
                                השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                                #24

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

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

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

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

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

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

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

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

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

                                  תגובה 1 תגובה אחרונה
                                  3
                                  • חייםיודלביץח מנותק
                                    חייםיודלביץח מנותק
                                    חייםיודלביץ
                                    השיב לclickone ב נערך לאחרונה על ידי
                                    #26

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

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

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

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

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

                                    WWWW תגובה 1 תגובה אחרונה
                                    3
                                    • WWWW מנותק
                                      WWWW מנותק
                                      WWW
                                      השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                                      #27

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

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

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

                                      תודה רבה רבה

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

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

                                      חייםיודלביץח תגובה 1 תגובה אחרונה
                                      1
                                      • חייםיודלביץח מנותק
                                        חייםיודלביץח מנותק
                                        חייםיודלביץ
                                        השיב לWWW ב נערך לאחרונה על ידי
                                        #28

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

                                        WWWW תגובה 1 תגובה אחרונה
                                        0
                                        • WWWW מנותק
                                          WWWW מנותק
                                          WWW
                                          השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                                          #29

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

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

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

                                          Send =
                                          

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

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

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

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

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