Hoe e-mail verzenden als de vervaldatum is bereikt in Excel?

Zoals onderstaand screenshot laat zien, als de vervaldatum in kolom C kleiner is dan of gelijk is aan 7 dagen (huidige datum is 2017/9/13), stuur dan een e-mailherinnering naar de opgegeven ontvanger in kolom A met gespecificeerde inhoud in kolom B. Hoe bereik je dit? Dit artikel biedt een VBA-methode om er in detail mee om te gaan.

Stuur een e-mail als de vervaldatum is bereikt met de VBA-code

Stuur een e-mail als de vervaldatum is bereikt met de VBA-code

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

Ga als volgt te werk om een e-mailherinnering te sturen als de vervaldatum in Excel is bereikt.

1. druk de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.

VBA-code: stuur een e-mail als de vervaldatum is gesloten in Excel

Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
    Dim xRgDate As Range
    Dim xRgSend As Range
    Dim xRgText As Range
    Dim xRgDone As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xLastRow As Long
    Dim vbCrLf As String
    Dim xMailBody As String
    Dim xRgDateVal As String
    Dim xRgSendVal As String
    Dim xMailSubject As String
    Dim i As Long
    On Error Resume Next
    Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
    If xRgDate Is Nothing Then Exit Sub
    Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
    If xRgSend Is Nothing Then Exit Sub
    Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
    If xRgText Is Nothing Then Exit Sub
    xLastRow = xRgDate.Rows.count
    Set xRgDate = xRgDate(1)
    Set xRgSend = xRgSend(1)
    Set xRgText = xRgText(1)
    Set xOutApp = CreateObject("Outlook.Application")
    For i = 1 To xLastRow
        xRgDateVal = ""
        xRgDateVal = xRgDate.Offset(i - 1).Value
        If xRgDateVal <> "" Then
        If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
            xRgSendVal = xRgSend.Offset(i - 1).Value
            xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
            vbCrLf = "<br><br>"
            xMailBody = "<HTML><BODY>"
            xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
            xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
            xMailBody = xMailBody & "</BODY></HTML>"
            Set xMailItem = xOutApp.CreateItem(0)
            With xMailItem
                .Subject = xMailSubject
                .To = xRgSendVal
                .HTMLBody = xMailBody
                .Display
                '.Send
            End With
            Set xMailItem = Nothing
        End If
    End If
    Next
    Set xOutApp = Nothing
End Sub

Notes: De lijn Als CDate (xRgDateVal) - Datum <= 7 En CDate (xRgDateVal) - Datum> 0 Dan betekent in de VBA-code dat de vervaldatum groter moet zijn dan 1 dag en kleiner dan of gelijk aan 7 dagen. U kunt het naar behoefte wijzigen.

3. druk op de F5-toets om de code uit te voeren. Bij de eerste die opduikt Kutools for Excel dialoogvenster, selecteer het kolombereik van de vervaldatum en klik vervolgens op het OK knop. Zie screenshot:

4. Dan de tweede Kutools for Excel dialoogvenster verschijnt, selecteer het corresponderende kolombereik dat de e-mailadressen van de ontvangers bevat en klik op het OK knop. Zie screenshot:

5. In de laatste Kutools for Excel dialoogvenster, selecteer de inhoud die u in de hoofdtekst van de e-mail wilt weergeven en klik vervolgens op het OK knop.

Vervolgens wordt automatisch een e-mail gemaakt met de opgegeven ontvanger, onderwerp en hoofdtekst als de vervaldatum in kolom C minder dan of gelijk is aan 7 dagen. Klik op het Verstuur knop om de e-mail te verzenden.

Notes:

1. Elke aangemaakte e-mail komt overeen met een vervaldatum. Als er bijvoorbeeld drie vervaldatums aan de criteria voldoen, worden automatisch drie e-mailberichten gemaakt.

2. Deze code wordt niet geactiveerd als er geen datums zijn die aan de criteria voldoen.

3. De VBA-code werkt alleen als u Outlook als uw e-mailprogramma gebruikt.

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...

92 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
LAra · 10 days ago
Hi Crystal, is it possible to get the email to automatically have an attachment? A picture, to be clear.
- Reply
To post as a guest, your comment is unpublished.
Suraj · 3 months ago
Hi Crystal,
I tried running the stock code as you have stated. However it doesn't compare the date values as written within the code. It is simply grabbing the first cell out of the range that is selected.
- Reply
To post as a guest, your comment is unpublished.
Mic · 3 months ago
Hi, could you please re-publish the code that to send an email with different columns in single email (ex- Recipient 1 with columns 3,5,10..etc and Recipient 2 with columns 7,9,12..etc)
Please help Rajesh I am looking same code :)
- Reply
To post as a guest, your comment is unpublished.
rajesh · 5 months ago
Hi, could you please re-publish the code that to send an email with different columns in single email (ex- Recipient 1 with columns 3,5,10..etc and Recipient 2 with columns 7,9,12..etc),
- Reply
To post as a guest, your comment is unpublished.
Christine · 5 months ago
Hi, I am very happy to find these codes and it works. May I know if I wish to change the "Date" into number of days example >= 90 days (take reference to a cell instead) as I have already set the formula to count numbers of days as of to-date. Is it possible? I am very new to codes. Appreciate your guidance. Thanks
- Reply
- To post as a guest, your comment is unpublished.
  san · 4 months ago
  
  yes , just simply edit the code in Line #32
  
  Reply
To post as a guest, your comment is unpublished.
Miriam · 8 months ago
Hi,

This code is great for what I need! :) Could you please help me to change the following code If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then to set a specific date instead of the 7 days ? I would like to receive alerts for each line, in which the due date is <=31/08/2021.

Any help would be greatly appreciated.

Thanks, Miriam
- Reply
To post as a guest, your comment is unpublished.
Deanda · 11 months ago
hi, why can't the email open after blocking the date, recipients, and content?
Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 11 months ago
  
  Sorry, you can't open an email without the date, recipients and content.
  
  Reply
To post as a guest, your comment is unpublished.
Bae · 1 years ago
Hi, can I add the cc email the code and how? please help me
- Reply
To post as a guest, your comment is unpublished.
BriSte · 1 years ago
Hi could you please re-publish the code that sends an email automatically
BriSre
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 1 years ago
 
 Hi BriSte,
 If you want to send an email automatically, please run the below code. Thank you.
 
 Private Sub Workbook_Open()
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim i As Long
 On Error Resume Next
 Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
 If xRgDate Is Nothing Then Exit Sub
 Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
 If xRgSend Is Nothing Then Exit Sub
 Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
 If xRgText Is Nothing Then Exit Sub
 xLastRow = xRgDate.Rows.count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For i = 1 To xLastRow
 xRgDateVal = ""
 xRgDateVal = xRgDate.Offset(i - 1).Value
 If xRgDateVal <> "" Then
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(i - 1).Value
 xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
 vbCrLf = "
 
 "
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .Subject = xMailSubject
 .To = xRgSendVal
 .HTMLBody = xMailBody
 .Display
 '.Send
 End With
 Set xMailItem = Nothing
 End If
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
 
 To post as a guest, your comment is unpublished.
 BriSte · 11 months ago
 
 Ho do I get this to auto run when I open up Excel
 BriSte
 
 Reply
 
 To post as a guest, your comment is unpublished.
 crystal · 11 months ago
 
 In the worksheet you will send emails based on due dates, please do as follows:
 1. Press the Alt + F11 keys to open the Micrsoft Visual Basic for Applications window;
 2. In the opened window, double click This Workbook to open the ThisWorkbook (Code) editor;
 3. Copy the above code and paste into the code editor, and the press Alt + A keys to close the window;
 4. Now you need to save the workbook as an Excel Macro-enabled Workbook: click File > Save As > Browse. In the Save As window, select a folder to save the file, name it as you need in the File name box, choose Excel Macro-Enabled Workbook from the Save as type drop-down, and then click Save.
 From now on, when opening this workbook, the code will be triggered automatically.
 
 Reply
 
 To post as a guest, your comment is unpublished.
 Shagufta · 5 months ago
 
 Hello,
 I have also followed your steps but sill it doesnot send automatic email when i open the spread sheet. Please guide me
 
 Reply
 
 To post as a guest, your comment is unpublished.
 crystal · 4 months ago
 
 Hi,
 In the workbook containing the data you will send email based on, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
 In this window, double click ThisWorkbook in the Project pane, and then copy the below code into the opening ThisWorkbook (code) window (see the attached picture below). Save the code and then press the Alt + Q keys to close the Microsoft Visual Basic for Applications window.
 Now you need to save the workbook as an Excel Macro-Enabled Workbook: click File > Save As, choose a folder to save the file, in the Save As dialog box, select Excel Macro-Enabled Workbook from the Save as type drop down list, and then click the Save button.
 From now on, when open the workbook, the corresponding dialog box will pop up for you to select certain field data for sending email.
 
 Private Sub Workbook_Open()
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim i As Long
 On Error Resume Next
 Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
 If xRgDate Is Nothing Then Exit Sub
 Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
 If xRgSend Is Nothing Then Exit Sub
 Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
 If xRgText Is Nothing Then Exit Sub
 xLastRow = xRgDate.Rows.Count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For i = 1 To xLastRow
 xRgDateVal = ""
 xRgDateVal = xRgDate.Offset(i - 1).Value
 If xRgDateVal <> "" Then
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(i - 1).Value
 xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
 vbCrLf = ""
 
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .Subject = xMailSubject
 .To = xRgSendVal
 .HTMLBody = xMailBody
 .Display
 '.Send
 End With
 Set xMailItem = Nothing
 End If
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
 
 To post as a guest, your comment is unpublished.
 Simon · 11 months ago
 
 Hi Crystal,
 
 I have followed the method above but still when I open the spreadsheet it doesn't send the email automatically.
 
 Reply
To post as a guest, your comment is unpublished.
Fevro1 · 1 years ago
This code is great! I've used the 'Range' code you described in the comments to select the cells required for the email within a certain range, however I am trying to add the recipients name (A2:A110) to the mail body directly after "Dear". I cannot seem to figure out what line of code I need to write in to make this possible. Any help would be much appreciated. Thank you!
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 1 years ago
 
 Hi,
 This line xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf in the code helps to add the corresponding recipients email address after "Dear".
 
 Reply
 
 To post as a guest, your comment is unpublished.
 byron · 11 months ago
 
 thanks to your great code!
 One more Q, currently "Dear " & "Text " are in same line, may i know how to be in different line?
 e.g. "Dear..."
 "Text..."
 
 Reply
 
 To post as a guest, your comment is unpublished.
 crystal · 11 months ago
 
 Hi byron,
 You can add & vbCrLf after "Dear" to place the "Dear" and "Text" in separate lines.
 
 Reply
 
 To post as a guest, your comment is unpublished.
 byron · 11 months ago
 
 Hi Crystal, thanks for your reply.
 In fact, i have modified the vbCrLf = " " into vbCrLf = " " then solved the problem, thanks!
 
 Reply
 
 To post as a guest, your comment is unpublished.
 LAra · 9 days ago
 
 Instead, how can i make the text to have line breaks?
 
 Reply
To post as a guest, your comment is unpublished.
RHolloway · 1 years ago
Hi, this is great thank you!

How can I avoid the code sending emails every time I open the workbook, if it has already sent an email. For example how could I add a column that the code marks 'S' in when it sends an email and then checks that column before sending the email?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi,
  The code won't send emails automatically when opening the workbook. You need to manually run it and specify the corresponding ranges.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Rholloway · 1 years ago
  
  Hi Crystal, I have used one of the below comments and answers to amend the code to send when it opens and to use a predetermined range so that it is automated. What I am looking for is an addition to mark the line of data as sent and then not read that line in the future. Thank you!
  
  Reply
To post as a guest, your comment is unpublished.
Reet Josan · 1 years ago
Hi ,
I need a code which automatically send email if today is a due date on the sheet..
one more thing i want to confirm my sheet is always open in minimise position with outlook open in minimised positiontoo on a computer which is on 24/7 . i just want once i add all anniversary figures in the sheet and add the code, 5 people should be able to get email every time on the day automatically.
is this posible. if yes please help me and send the code.
Thanks in advance..
Reet
- Reply
To post as a guest, your comment is unpublished.
Jhimber0905 · 1 years ago
I love this code, but I don't like that every single time I have to select the cells I want to email. Is there a way to just choose a range so that I don't have to fill-in the KuTools answers each time? I have KUtools BTW.
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 1 years ago
 
 Hi,
 Please try the below VBA, and don't forget to modify the ranges based on your own data.
 
 Public Sub CheckAndSendMail()
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim xStrRang As String
 Dim i As Long
 On Error Resume Next
 'Please specify the due date range
 xStrRang = "C2:C5"
 Set xRgDate = Range(xStrRang)
 'Please specify the recipients email address range
 xStrRang = "A2:A5"
 Set xRgSend = Range(xStrRang)
 'Specify the range with reminded content in your email
 xStrRang = "B2:B5"
 Set xRgText = Range(xStrRang)
 
 xLastRow = xRgDate.Rows.Count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For i = 1 To xLastRow
 xRgDateVal = ""
 xRgDateVal = xRgDate.Offset(i - 1).Value
 If xRgDateVal <> "" Then
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(i - 1).Value
 xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
 vbCrLf = "
 
 "
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .Subject = xMailSubject
 .To = xRgSendVal
 .HTMLBody = xMailBody
 .Display
 '.Send
 End With
 Set xMailItem = Nothing
 End If
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
To post as a guest, your comment is unpublished.
Jason · 1 years ago
This is fantastic. Thank you for posting this. I do have one question....

When I put in the code, it is working and it is automatically creating emails in outlook to be sent. That said, I still have to click on each of the emails and send them. Is there VBA code that would make the emails get sent automatically?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Jason,
  If you want to send the email automatically without popping up, please replace the line .Display with .Send.
  
  Reply
To post as a guest, your comment is unpublished.
mohamed aleem · 1 years ago
is there a videos explain how to run a code because i cannot know how to proceed this issue ? and i need to ask somerhing, i have to install the Kutools to send tha mail or to enable code is run ?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi,
  You don't need to install Kutools, after adding the VBA to the Module window, press the F5 key to run the code. Then follow the instruction to finish it step by step.
  
  Reply
To post as a guest, your comment is unpublished.
Benjamin · 1 years ago
Hi I'm a beginner here, may I know what does the following do?

xRgDateVal = xRgDate.Offset(i - 1).Value
- Reply
To post as a guest, your comment is unpublished.
Muru · 2 years ago
I'm Beginner here, I have tried the given VBA code and its works well.
can I stop triggering an email if the case is closed before meeting the due date?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Muru,
  If you want to stop triggering emails, please get into the Microsoft Visual Basic for Applications window, click the Break button (next to the Run button).
  And you can click the Run button to activate the code again.
  
  Reply
To post as a guest, your comment is unpublished.
Muru · 2 years ago
hi
I'm a beginner to VBA. I have tried the given format and its works well.

Sometimes my clients meet earlier than my due date so in this situation how to stop the email triggering?

Regards
Muru
- Reply
To post as a guest, your comment is unpublished.
Tina · 2 years ago
I am trying to use this code but when I run it, it just comes up with "Compile error: Invalid outside procedure". Do you think you could help please?
Many thanks
Tina
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Tina,
  Which Excel version are you using?
  
  Reply
To post as a guest, your comment is unpublished.
Goodrich · 2 years ago
I copied the VBA code you provided for this, but it keeps grabbing the header row and not the cells with the content I need. Can you help me with this?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Mindie,
  Which Excel version are you using?
  
  Reply
To post as a guest, your comment is unpublished.
matt · 2 years ago
Hi,

I have set up a code to filter a column to tomorrows date (works fine) then to put the filtered workbook into an email as a PDF (works ok) then filter this back to all (Works ok) For some reason the pdf comes through with no data and I cant for the life of me figure out why. Please can you help? Code below.

Currently on row 122 so this should be covered with the below?

Sub CallMacros()
Call FilterTomorrow1
Call Email_ActiveSheet_As_PDF
Call FilterAll1
End Sub
Sub FilterTomorrow1()
'
' FilterTomorrow1 Macro
' Filter delivery date from all to tomorrows date
'

'
ActiveSheet.Range("$A$3:$T$329").AutoFilter Field:=6, Criteria1:=3, _
Operator:=11, Criteria2:=0, SubField:=0
ActiveWindow.SmallScroll Down:=-500
End Sub
Sub Email_ActiveSheet_As_PDF()

'Do not forget to change the email ID
'before running this code

Dim OlApp As Object
Dim NewMail As Object
Dim TempFilePath As String
Dim TempFileName As String
Dim FileFullPath As String

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

TempFilePath = Environ$("temp") & "\"

TempFileName = ActiveSheet.Name & "-" & Format(Now, "dd-mmm-yy") & "Tomorrows Deliveries.pdf"

On Error GoTo err
With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FileFullPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

Set OlApp = CreateObject("Outlook.Application")
Set NewMail = OlApp.CreateItem(0)

On Error Resume Next
With NewMail
.To = "my email"
.CC = ""
.BCC = ""
.Subject = "Tomorrows Deliveries"
.Body = "Please see attached delivery schedule for tomorrow"
.Attachments.Add FileFullPath '--- full path of the pdf where it is saved
.Send 'or use .Display to show you the email before sending it.
End With
On Error GoTo 0

Kill FileFullPath

Set NewMail = Nothing
Set OlApp = Nothing

.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox ("Email has been Sent Successfully")
Exit Sub
err:
MsgBox err.Description

End Sub
Sub FilterAll1()
'
' FilterAll1 Macro
' Filter delivery due date from tomorrows date to select all
'

'
ActiveSheet.Range("$A$3:$T$329").AutoFilter Field:=6
End Sub
- Reply
To post as a guest, your comment is unpublished.
Kailing · 2 years ago
Hi, can the reminder still be sent when the excel file is closed?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi,
  The code stops working when the Excel file is closed.
  
  Reply
To post as a guest, your comment is unpublished.
Jill · 2 years ago
Hi,

I would like to add another column in the code that allows me to write and separate message in the subject box, and another message for the email content. Can this be done?
- Reply
To post as a guest, your comment is unpublished.
Kayden · 2 years ago
Hello,

Can you modify this VBA to send automatic emails based on cell value instead of due dates? For instance, Column C2 will be a numeric value instead of a date; once it falls below XX number, then it initiates an email with subject The Park Project is due soon. Thank you!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Kayden,
  The code in this article may do you a favor: https://www.extendoffice.com/documents/excel/4656-excel-send-email-based-on-cell-value.html
  Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
parvana · 2 years ago
Hello, thank a lot for the VBA code. I run it, but I have a problem. I tried several dates and realized the outlook is sending messages 1 day after the calibration date. I pu 7/14/2019
7/15/2019
7/16/2019
7/17/2019
7/18/2019
7/19/2019
7/20/2019
7/21/2019 dates and after running the VBA code the excel sent me an email only for 7/19/2019; 7/20/2019; 7/21/2019 dates. Since today is 7/18/2019, it means the emails are 1 day after the calibration date. I wanted the messages to be sent the week before the due date.
- Reply
To post as a guest, your comment is unpublished.
davidbraendle66@gmail.com · 2 years ago
Ich habe die VAB in der XLS Tabelle hinterlegt mit der korrekten Mail Adresse.
Leider funktioniert es nicht. Woran kann es liegen? Gerne höre-lese ich von Ihnen. Vielen Dank.
- Reply
To post as a guest, your comment is unpublished.
Alex · 2 years ago
Buenos días! ¿que modificación tendría que realizar para dejar seleccionadas las celdas con la información de fecha, texto y correo y no tener que seleccionarlas cada vez que se activa la macro?

también me gustaría saber como introducir un CC, es decir, poder poner a otra persona en copia del correo. Gracias!
- Reply
- To post as a guest, your comment is unpublished.
  barbara · 1 years ago
  
  Hola! Pudiste solucionar esto? Estoy necesitando lo mismo.. gracias!
  
  Reply
To post as a guest, your comment is unpublished.
SerMFe · 2 years ago
Hi,

I have a question,

If I want to select a prederterminate range of cells, how could i modify the code in this part:

xLastRow = xRgDate.Rows.Count
Set xRgDate = xRgDate(1)

Toset automaticatly the cells?

Thank you :)
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 1 years ago
 
 Hi,
 If you don't want to manually select ranges every time when applying the code, please use the below code.
 
 Public Sub CheckAndSendMail()
 'Updated by Extendoffice 2019/12/10
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim i As Long
 On Error Resume Next
 Set xRgDate = Range("C2: C4")
 If xRgDate Is Nothing Then Exit Sub
 Set xRgSend = Range("A2: A4")
 If xRgSend Is Nothing Then Exit Sub
 Set xRgText = Range("B2:B4")
 If xRgText Is Nothing Then Exit Sub
 xLastRow = xRgDate.Rows.Count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For i = 1 To xLastRow
 xRgDateVal = ""
 xRgDateVal = xRgDate.Offset(i - 1).Value
 If xRgDateVal <> "" Then
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(i - 1).Value
 xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
 vbCrLf = "
 
 "
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .Subject = xMailSubject
 .To = xRgSendVal
 .HTMLBody = xMailBody
 .Display
 '.Send
 End With
 Set xMailItem = Nothing
 End If
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
To post as a guest, your comment is unpublished.
LEchols · 2 years ago
I am new to VBA. Is there a way to automatically run this program whenever the file is opened?
- Reply
- To post as a guest, your comment is unpublished.
  SerMFe · 2 years ago
  
  Yes, with
  
  Private Sub Workbook_Open()
  *Enter code here*
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
L Echols · 2 years ago
Hello, I am new to VBA. Is there a way to have this program automatically run whenever the file is opened?
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 2 years ago
 
 Hi L Echols,
 For automatically running the code when the file is opened, please double click to open the ThisWorkbook code window (locates in the left side of the Microsoft Visual Basic for Applications window) , select Workbook from the first drop-down list, and then copy the above VBA code (except the first and the last line) into the code window and paste between the given two lines. See the below attached screenshot:
 
 Reply
 
 To post as a guest, your comment is unpublished.
 Kayden · 1 years ago
 
 Hello Crystal,
 I'm having an issue with automatically sending email once file is opened. For instance, I have all due date info on Sheet1. However, if I save and close the file when I was working on Sheet2, as soon as I open the file, the values to send emails will be based on Sheet2 and not on Sheet1. I only have module added on Sheet1 and ThisWorkbook. I think having same vba on ThisWorkbook triggers to send automatic emails on whichever sheet I have it open at the moment. How can I restrict the VBA to pull value from specific sheet and also send emails when the file is opened? Thank you very much for your help in advance!
 
 Reply
 
 To post as a guest, your comment is unpublished.
 dlee058@ucr.edu · 2 years ago
 
 This is awesome. I was wondering if there is a way to run the code without having to select the KuTools values every time? For clarification, I inputted this code and now whenever I open the workbook I still have to highlight the same columns. Is there a way to input the code to run a check on the same columns every time - as long as no edits to workbook have been made - to run the check and formulate an email based off said check? Thank you in advance.
 
 Reply
 
 To post as a guest, your comment is unpublished.
 Danny · 2 years ago
 
 This is awesome. I was wondering if there is a way to run the code without having to select the KuTools values every time? For clarification, I inputted this code and now whenever I open the workbook I still have to highlight the same columns. Is there a way to input the code to run a check on the same columns every time - as long as no edits to workbook have been made - to run the check and formulate an email based off said check? Thank you in advance.
 
 Reply
 
 To post as a guest, your comment is unpublished.
 crystal · 2 years ago
 
 Hi Danny,
 Please try the below code and change the ranges as you need.
 
 Public Sub CheckAndSendMail()
 'Updated by Extendoffice 2019/5/17
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim i As Long
 On Error Resume Next
 Set xRgDate = Range("C2: C4")
 If xRgDate Is Nothing Then Exit Sub
 Set xRgSend = Range("A2: A4")
 If xRgSend Is Nothing Then Exit Sub
 Set xRgText = Range("B2:B4")
 If xRgText Is Nothing Then Exit Sub
 xLastRow = xRgDate.Rows.Count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For i = 1 To xLastRow
 xRgDateVal = ""
 xRgDateVal = xRgDate.Offset(i - 1).Value
 If xRgDateVal <> "" Then
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(i - 1).Value
 xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
 vbCrLf = "
 
 "
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .Subject = xMailSubject
 .To = xRgSendVal
 .HTMLBody = xMailBody
 .Display
 '.Send
 End With
 Set xMailItem = Nothing
 End If
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
To post as a guest, your comment is unpublished.
Dinesh B S · 2 years ago
in the body i want the column a,b,c value in a table format, like the expired date once reached in the body column i want to print a,b,c cells details in table format
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Dinesh B S,
  Sorry can't help you with that. Welcome to post any question in our forum: https://www.extendoffice.com/forum.html.
  
  Reply
To post as a guest, your comment is unpublished.
Sounder P · 2 years ago
Hello Sir,

This is very much helpful. I need 2 more enhancement in the same codes. I have to click on send button every time, it is fine as long as I have 10 email to be sent, what if I >25 emails to be sent in a single day. So please give me a code to send e-mail automatically upon selecting Due date , Recipient, Subject etc.

Also please provide me with the code to add " CC" option as well

Thanks

Sounder P
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 2 years ago
 
 Good day,
 Please try the below VBA code, hope I can help. Thanks for commenting.
 
 Public Sub CheckAndSendMail()
 'Updated by Extendoffice 2018/11/22
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim i As Long
 On Error Resume Next
 Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
 If xRgDate Is Nothing Then Exit Sub
 Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
 If xRgSend Is Nothing Then Exit Sub
 Set xRgCC = Application.InputBox("Please select the CC recipients?email column:", "KuTools For Excel", , , , , , 8)
 If xRgCC Is Nothing Then Exit Sub
 Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
 If xRgText Is Nothing Then Exit Sub
 xLastRow = xRgDate.Rows.Count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgCC = xRgCC(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For i = 1 To xLastRow
 xRgDateVal = ""
 xRgDateVal = xRgDate.Offset(i - 1).Value
 If xRgDateVal <> "" Then
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(i - 1).Value
 xRgCCVal = xRgCC.Offset(i - 1).Value
 xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
 vbCrLf = "
 
 "
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .Subject = xMailSubject
 .To = xRgSendVal
 .Cc = xRgCCVal
 .HTMLBody = xMailBody
 .Send
 End With
 Set xMailItem = Nothing
 End If
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
 
 To post as a guest, your comment is unpublished.
 theebanraj03@gmail.com · 1 years ago
 
 Hi Crystal,
 
 Thanks for the codes as it is very much helpful. But how to make the code work if I'm using outlook.office.com?
 
 Reply
To post as a guest, your comment is unpublished.
sammy830@gmail.com · 2 years ago
Hi, I am using a modified version of this code, and I am rather new to VBA. I was curious if there was a possibility for when the email were to be sent, that the macro would be able to mark an X, or if someone had Complete, that an email would not send. I hope this all makes sense. Any help is very greatly appreciated. Little background, I am using this tool to run a due date check at 30 days, 60 days, and overdue. I want 1 email to go out at 30 days, 1 at 60 days, and then overdue as well. I am running this off of a VB script I wrote, so that I could automate it daily. Thanks!
- Reply
To post as a guest, your comment is unpublished.
S. Engel · 2 years ago
Hi, I am using a modified version of this code, and I am rather new to VBA. I was curious if there was a possibility for when the email were to be sent, that the macro would be able to mark an X, or if someone had Complete, that an email would not send. I hope this all makes sense. Any help is very greatly appreciated.

Little background, I am using this tool to run a due date check at 30 days, 60 days, and overdue. I want 1 email to go out at 30 days, 1 at 60 days, and then overdue as well. I am running this off of a VB script I wrote, so that I could automate it daily. Thanks!
- Reply
To post as a guest, your comment is unpublished.
Fabrisquie Borges · 2 years ago
Correctly, it was not with Mr. Ivan, but with Mr. Austin.
Thank you.
- Reply
To post as a guest, your comment is unpublished.
Fabrisquie Borges · 2 years ago
Hello,
Mr. Crystal, in your last conversation with Mr. Ivan, he asked you for the code to send e-mail every time the spreadsheet is opened instead of entering the codes each time.
I need the same code, same situation, can you help please?
- Reply
To post as a guest, your comment is unpublished.
Rodrigo Vicente · 2 years ago
Thank you very much for the contribution. I would like to know how to use fixed column selection without having to use kutools? that is, leave default columns of dates, receipts, and warnings?
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 2 years ago
 
 Good day,
 The below VBA code can help you. Please have a try.
 
 Public Sub CheckAndSendMail()
 'Updated by Extendoffice 2018/11/22
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim i As Long
 On Error Resume Next
 Set xRgDate = Range("C2:C4") 'Please reference the due date column
 If xRgDate Is Nothing Then Exit Sub
 Set xRgSend = Range("A2:A4") 'Please reference the recipients?email column
 If xRgSend Is Nothing Then Exit Sub
 Set xRgText = Range("B2:B4") Enter the column with reminded content in your email
 If xRgText Is Nothing Then Exit Sub
 xLastRow = xRgDate.Rows.count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For i = 1 To xLastRow
 xRgDateVal = ""
 xRgDateVal = xRgDate.Offset(i - 1).Value
 If xRgDateVal <> "" Then
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(i - 1).Value
 xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
 vbCrLf = "
 
 "
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .Subject = xMailSubject
 .To = xRgSendVal
 .HTMLBody = xMailBody
 .Display
 '.Send
 End With
 Set xMailItem = Nothing
 End If
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
 
 To post as a guest, your comment is unpublished.
 Raj · 1 years ago
 
 Dear Crystal, While selecting the dates column, Can multiple cells in different columns be selected?
 
 Reply
 
 To post as a guest, your comment is unpublished.
 niti · 2 years ago
 
 Dear Crytal,
 
 Thank for your sharing.
 
 I'm a beginner and I have a problem with code.
 
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 
 The text is not go to new line.
 Could you please help.
 
 Thanks
 
 Reply
 
 To post as a guest, your comment is unpublished.
 crystal · 2 years ago
 
 Ni niti,
 You need to add the line vbCrLf = " " in front of the coldes.
 Such as:
 vbCrLf = " "
 xMailBody = ""
 xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
 xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
 xMailBody = xMailBody & ""
 
 Reply
To post as a guest, your comment is unpublished.
Ivan · 2 years ago
Hi guys,

Macro is great but I would like to ask something - if you have someone on the list without any date how to modifiy the vba code to exclude that guy? Now the code generates e-mails even for the guys without any date.

Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Lvan,
  The code has been updated with the problem solving, please have a try. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
austin · 2 years ago
I have got excel to send the email, but can I set this so it sends an email every time I open up excel instead of selecting the columns each time.

I have a workbook with 24 pages so am looking to email automatically when the workbook is opened up.

Many thanks.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi,
  Do you mean check for the due date automatically across the workbook and send email when the workbook is openned up?
  
  Reply
To post as a guest, your comment is unpublished.
Dick Borman · 2 years ago
Dont get it working. Using Office 365 so Outlook and Excel should be tight enough. Like in the post from "schou" 4 monts ago, it works up to step 5 but then nothing.
A solution to this?
- Reply
To post as a guest, your comment is unpublished.
EdwardLSnyder · 2 years ago
I need this to work across all worksheets in a workbook the future date will be manually entered in the same cell on every sheet and new sheets are created daily. I also need the worksheet name in the email so I will know which sheet is due
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Sorry can’t help you with this.
  Welcome to post any question about Excel to our forum: https://www.extendoffice.com/forum.html. You will get more Excel supports from our professional or other Excel fans.
  
  Reply
To post as a guest, your comment is unpublished.
Diyaa · 3 years ago
can we just input the details one time and the emails can be sent automatically, instead of always needing to select the columns?
- Reply
- To post as a guest, your comment is unpublished.
 crystal · 2 years ago
 
 Hi Diyaa,
 If you don't want to manually select the columns, please apply the below VBA code.
 Note: You onlyneed to select the due dates column after applying the code.
 
 Public Sub CheckAndSendMail()
 'Updated by Extendoffice 2017/9/14
 Dim xRgDate As Range
 Dim xRgSend As Range
 Dim xRgText As Range
 Dim xRgDone As Range
 Dim xOutApp As Object
 Dim xMailItem As Object
 Dim xLastRow As Long
 Dim vbCrLf As String
 Dim xMailBody As String
 Dim xRgDateVal As String
 Dim xRgSendVal As String
 Dim xMailSubject As String
 Dim I As Long
 On Error Resume Next
 Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
 If xRgDate Is Nothing Then Exit Sub
 xLastRow = xRgDate.Rows.Count
 Set xRgDate = xRgDate(1)
 Set xRgSend = xRgSend(1)
 Set xRgText = xRgText(1)
 Set xOutApp = CreateObject("Outlook.Application")
 For I = 1 To xLastRow
 xRgDateVal = xRgDate.Offset(I - 1).Value
 If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
 xRgSendVal = xRgSend.Offset(I - 1).Value
 xMailSubject = xRgText.Offset(I - 1).Value & " on " & xRgDateVal
 vbCrLf = "
 
 "
 xMailBody = "Hi there" & vbNewLine & vbNewLine & _
 "This is line 1" & vbNewLine & _
 "This is line 2"
 Set xMailItem = xOutApp.CreateItem(0)
 With xMailItem
 .To = "Email Address"
 .CC = ""
 .BCC = ""
 .Subject = "send by cell value test"
 .Body = xMailBody
 .Display 'or use .Send
 End With
 Set xMailItem = Nothing
 End If
 Next
 Set xOutApp = Nothing
 End Sub
 
 Reply
 
 To post as a guest, your comment is unpublished.
 Thomas · 2 years ago
 
 Hello,
 I'm also pretty much of a beginner and I would like to ask another question for your great Sub.
 
 How can I send an email only if a certain mail-adress is in the regarding cell?
 
 I need this, because in my excel-tool i implemented some buttons for each person, who needs a reminder.
 
 Thank you very much in advance!!
 
 Thomas
 
 Reply
 
 To post as a guest, your comment is unpublished.
 crystal · 2 years ago
 
 Hi Thomas,
 We have posted an article "How to send email to email addresses specified in cells in Excel?"
 https://www.extendoffice.com/documents/excel/4717-excel-macro-send-email-to-address-in-cells.html
 Maybe you can find your solution in this article.
 
 Reply
To post as a guest, your comment is unpublished.
Robert · 3 years ago
This code froze my excel program when I ran it. Is it memory intensive?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi Robert,
  The problem you mentioned does not appear in my case. May I have your Office version?
  
  Reply
To post as a guest, your comment is unpublished.
Maria · 3 years ago
Me viene muy bien gracias por el aporte, solo me falta como puedo hacerlo automaticamente sin necesidad de hacerlo manualmente el envio del correo.
- Reply
To post as a guest, your comment is unpublished.
schou · 3 years ago
I used your VBA code for sending emails based on a cell value but it doesn’t work.
Everything up until step 5 works but no email is sent. Can anyone help me with this?
- Reply
To post as a guest, your comment is unpublished.
brandon007pillay@gmail.com · 3 years ago
Thank you for sharing.

How would you add Cc inputs or multiple recipients?
- Reply
- To post as a guest, your comment is unpublished.
  schou · 3 years ago
  
  Hi Brandon,
  
  Sorry to comment on your post without an answer but were you able to get the VBA code to send an email?
  
  Reply

Log in op uw account

Wachtwoord Resetten