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

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

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

מתוזמן נעוץ נעול הועבר תכנות
54 פוסטים 5 כותבים 3.1k צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • הכוכב שלנוה מנותק
    הכוכב שלנוה מנותק
    הכוכב שלנו
    כתב ב נערך לאחרונה על ידי
    #1

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

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

    clickoneC תגובה 1 תגובה אחרונה
    0
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    כתב ב נערך לאחרונה על ידי
    #2

    ראה פה:

    https://www.prog.co.il/threads/שליחת-קובץ-במייל-באמצעות-אקסס.63432/

    שמעתי שכיום זה לא עובד משום מה.

    אתה כבר יודע לכתוב טיפה קוד VBA, או שאתה בדיוק כעת לומד על זה?

    אפשר ליצור קשר dovid@tchumim.com

    הכוכב שלנוה תגובה 1 תגובה אחרונה
    0
  • הכוכב שלנוה מנותק
    הכוכב שלנוה מנותק
    הכוכב שלנו
    השיב לdovid ב נערך לאחרונה על ידי
    #3

    @dovid
    הקישורים המופיעים שם דף לא תקני (404)
    קישור אחד תקין על אנגלית שאני לא יודע!
    נראה לך שיש סיכוי להתחיל לכתוב לבד VBA???...

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

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

    למה לא עובד.
    אני משתמש עם זה. ועובד מצויין,

    הכוכב שלנוה תגובה 1 תגובה אחרונה
    1
  • הכוכב שלנוה מנותק
    הכוכב שלנוה מנותק
    הכוכב שלנו
    השיב למלא ב נערך לאחרונה על ידי
    #5

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

    למה לא עובד.
    אני משתמש עם זה. ועובד מצויין,

    אתה יכול להעלות פה קוד?
    נודה לך מאד!!!

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

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

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

    
           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 תגובה אחרונה
    3
  • הכוכב שלנוה מנותק
    הכוכב שלנוה מנותק
    הכוכב שלנו
    השיב לclickone ב נערך לאחרונה על ידי
    #7

    @clickone אם מותר לשאול עוד.
    עכשיו שמתי את זה באירוע בעת לחיצה.
    הוא מראה לי מייד שגיאה בהתחלה, חשבתי שהשגיאה הוא שלא כתוב בסוף end sub אבל כתבתי ולא עזר.
    יש איזה הגדרות בג'ימל שצריך לשנות?
    או משהו אחר?

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

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

    מה ש@clickone הביא זה פונקציה שאמורים לשים אותה מחוץ ללחצן ולשלוח לו call מלחצן + הפרמטרים.
    אם אני זוכר נכון, הקוד הזה מצריך רפרנסים.
    כמו"כ אתה צריך לאפשר בג'ימייל שליחה מתוכנות חיצוניות.

    הכוכב שלנוה clickoneC 2 תגובות תגובה אחרונה
    2
  • הכוכב שלנוה מנותק
    הכוכב שלנוה מנותק
    הכוכב שלנו
    השיב למלא ב נערך לאחרונה על ידי
    #9

    @מלא אמר באיך כותבים בVBA קוד לשליחת אימייל ישירות מהאקסס?:
    אשמח לעזרה

    מה ש@clickone הביא זה פונקציה שאמורים לשים אותה מחוץ ללחצן ולשלוח לו call מלחצן + הפרמטרים.
    מה זה CALL ואיזה פרמטרים? (שם קובץ וכד'?)
    אם אני זוכר נכון, הקוד הזה מצריך רפרנסים.
    "רפרנסים" - מה זה?
    כמו"כ אתה צריך לאפשר בג'ימייל שליחה מתוכנות חיצוניות.
    איזה הרשאה לתת?

    תודה רבה, אני חדש, רק מי שיש לו זמן שישיב לי בבקשה, תודה!

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

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

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

    Set cdomsg = CreateObject("CDO.message")
    

    שיוצאת אובייקט מבחץ.
    כמובן שCDO צריך להיות מותקן. אבל הוא מותקן במחשב בברירת מחדל החל מווינדוס 2000

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

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

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

    @clickone איך אני יכול לבדוק שאכן קיים (או שפשוט ווינדוס 7 מותקן, אבל מעדיף לבדוק...)
    עכשיו סתם שאלה להעשרת ידע, מה זה CDO?
    ואשמח אם תשיב לי איך לשים את הקוד באקסס

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

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

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

    
    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"
    
        .TextBody =  '"the full message body goes here. you may want to create a variable to hold the text"
    
    
    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
    msgbox "Mail Send"
    Else
    msgbox  Err.Description
    End If
    
    
    

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

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

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

    @הכוכב-שלנו
    מותקן בטוח.
    CDO זו ספרייה של מייקרוסופט שנותנת לשלוח מיילים.
    שים לב שאתה צריך לשנות שם את הפרמטרים של שולח ולמי אתה שולח וכו

    אם לא הולך אני יעלה קובץ דוגמא

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

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

    תגובה 1 תגובה אחרונה
    1
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    כתב ב נערך לאחרונה על ידי
    #14

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

    אפשר ליצור קשר dovid@tchumim.com

    הכוכב שלנוה clickoneC 2 תגובות תגובה אחרונה
    2
  • הכוכב שלנוה מנותק
    הכוכב שלנוה מנותק
    הכוכב שלנו
    השיב לdovid ב נערך לאחרונה על ידי
    #15

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

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

    קיבלתי

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

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

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

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

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

    dovidD תגובה 1 תגובה אחרונה
    5
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    השיב לclickone ב נערך לאחרונה על ידי
    #17

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

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

    זה עדיין קפיצה. הוא צריך קודם להציג msgbox וכדומה.

    אפשר ליצור קשר dovid@tchumim.com

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

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

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

    לי הוא לא עבד ללא התרת אפלקציות לא מאובטחות.
    השתנה משהו? אני לא מתווכח..

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

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

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

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

    זה עדיין קפיצה. הוא צריך קודם להציג msgbox וכדומה.

    1. אני יודע לעשות Msgbox כולל נתונים לפי שדות בטבלה...
    2. אבל זה בסדר התגרת אותי!

    מעוניין לפעול בשביל תחבורה ציבורית! על כל רעיון תפנו אלי!!!

    תגובה 1 תגובה אחרונה
    2
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    כתב ב נערך לאחרונה על ידי
    #20

    @הכוכב-שלנו מעולה!
    אתה כתבת בענוה יתירה שאתה לא יודע לכתוב קוד VBA. להבא, תיצמד לעובדות גם כשהם מחמיאות 🙂

    אפשר ליצור קשר dovid@tchumim.com

    הכוכב שלנוה תגובה 1 תגובה אחרונה
    3

  • 1
  • 2
  • 3
  • התחברות

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

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

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

  • התחברו או הירשמו כדי לחפש.