Insert date in Subject through date picker

Status
Not open for further replies.

carmine

Member
Outlook version
Outlook 2013 32 bit
Email Account
IMAP
Hey all,




I use the below script to send mail from excel sheet and it successful send email & attachments. I wish to have date picker for mail subject which a user can select the date and send the email or an input box.


Thanks in advance.




Code:
Sub Send_Files()
 
 
'Working in Excel 2000-2013
 
 
'For Tips see: [URL]http://www.rondebruin.nl/win/winmail/Outlook/tips.htm[/URL]
   Dim OutApp As Outlook.Application
   Dim OutMail As Outlook.MailItem
   Dim sh As Worksheet
   Dim cell As Range
   Dim FileCell As Range
   Dim rng As Range
 
   With Application
       .EnableEvents = False
       .ScreenUpdating = False
   End With
   Set sh = Sheets("send")
   Set OutApp = CreateObject("Outlook.Application")
   For Each cell In sh.Columns("c").Cells.SpecialCells(xlCellTypeFormulas)
   'For Each cell In sh.Columns("c").Cells.SpecialCells(xlCellTypeConstants)
       'Enter the path/file names in the C:Z column in each row
       Set rng = sh.Cells(cell.Row, 1).Range("d1:Z1")
       If cell.Value Like "?*@?*.?*" And _
          Application.WorksheetFunction.CountA(rng) > 0 Then
           Set OutMail = OutApp.CreateItem(olMailItem)
           With OutMail
               .To = cell.Value
               .Subject = "Testfile" [B]'DATE SELECTED BY USER VIA INPUT BOX OR DATE PICKER[/B]
               .Body = "Hi " & cell.Offset(0, -1).Value
               For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
                   If Trim(FileCell) <> "" Then
                       If Dir(FileCell.Value) <> "" Then
                           .Attachments.Add FileCell.Value
                       End If
                   End If
               Next FileCell
               .Display  'Or use Send
           End With
           Set OutMail = Nothing
       End If
   Next cell
   Set OutApp = Nothing
   With Application
       .EnableEvents = True
       .ScreenUpdating = True
   End With
 
 
End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
C Insert a Date Picker for Send Mail Subject Using Outlook 1
witzker Outlook 2010 Insert Date & Time at the button of an OL contactform in red Using Outlook 2
witzker insert Date & Time (HH:mm) no (ss) in userform Using Outlook 6
A insert Date & Time in userform Using Outlook 3
J Form design - how do I insert an automatic date/time field? Using Outlook 2
F Insert date at cursor location Outlook VBA and Custom Forms 4
B VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
B Programmatically force html send and insert clipboard contents into body Outlook VBA and Custom Forms 0
P Insert link in email body to attached document in Outlook 365 Outlook VBA and Custom Forms 0
E Copy e-mail body from outlook and insert into excel Outlook VBA and Custom Forms 3
R How Do I insert images in and Auto Reply Using Outlook 3
L Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 33
Diane Poremsky Create Task or Appointment and Insert Selected Text New Slipstick.com Articles 0
B Insert Hyperlinks for attachments in Userform Outlook VBA and Custom Forms 5
D Outlook task insert Outlook VBA and Custom Forms 3
A Auto Insert of filename when selecting 'Remove Attachment' Using Outlook 1
K Insert screenshots issue Using Outlook 2
makinmyway Recent Files Not Updating when Using Insert Hyperlink in Outlook 2013 Using Outlook 0
L Insert Photo to Contact Using Outlook 23
K OL2010 Button to Insert First Name Outlook VBA and Custom Forms 6
K OL2010 Button to Insert First Name Using Outlook 1
K Macro to insert attachments Using Outlook 1
mrje1 Opening a task the Insert Tab Option is not showing up and organizing Tasks Using Outlook 9
H Insert Specific Text before Subject for New mails and reply Using Outlook 3
R insert picture tab grey Using Outlook 1
K Outlook insert clip art, no results found...address book contacts only show up Using Outlook 5
J How do I view the ruler in an Outlook message and/or insert tabs? Using Outlook 7
L Forward Email and Insert Sender's Email address in body Outlook VBA and Custom Forms 3
D Insert Text and Send Outlook VBA and Custom Forms 1
D Re: How do i insert radio buttons in an email Outlook VBA and Custom Forms 1
G How to insert a json array into a calendar events Outlook VBA and Custom Forms 1
K insert text into current position of pointer in mailcompose Outlook VBA and Custom Forms 1
J Insert File Outlook VBA and Custom Forms 2
M Insert a File Outlook VBA and Custom Forms 3
G Task / Insert / Attach Item / Business Contact BCM (Business Contact Manager) 1
M Forward email as insert from button Outlook VBA and Custom Forms 1
B Simple way to insert file text - macro? Outlook VBA and Custom Forms 1
S How to insert a picture programatically Outlook VBA and Custom Forms 12
C insert a picture Outlook VBA and Custom Forms 1
J How do I scan and insert into Outlook 2007? Using Outlook 3
B Insert information to MailItem Outlook VBA and Custom Forms 1
D RE: How do you change the default insert file path in outlook? Using Outlook 11
D Insert Text via Macro in Outlook 2007 Outlook VBA and Custom Forms 2
T Is it possible to INSERT a string into email body via Shortcut. Outlook VBA and Custom Forms 2
J Command Button to insert Email Signature Outlook VBA and Custom Forms 2
D Macro creation for Outlook insert subject Outlook VBA and Custom Forms 1
T Insert text from file Outlook VBA and Custom Forms 1
S How to create a macro to insert a signature in Outlook 2007 Outlook VBA and Custom Forms 1
T How do i insert a page break in an Outlook e-mail message? Using Outlook 4

Similar threads

Top