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

[מוטי מן]

אני משתמש בקוד הזה שהביא @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

[אוריי]

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