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

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

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

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

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

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

    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
    
    אורייא תגובה 1 תגובה אחרונה
    0
    • אורייא מנותק
      אורייא מנותק
      אוריי
      השיב למוטי מן ב נערך לאחרונה על ידי אוריי
      #2

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

      ניתן לפנות אלי גם ב al0548446188@gmail.com
      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

      תגובה 1 תגובה אחרונה
      0
      • dovidD dovid העביר נושא זה מ-תכנות ב-

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

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

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