Send a reorder email when inventory low. Send an email listing the products that must be reordered from your inventor sheet. Check out my free templates and templates with code are available for purchase for $50 USD
[ Ссылка ]

Click this link to check out my one-on-one training [ Ссылка ]

For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting [ Ссылка ]

Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click [ Ссылка ] to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.

I am able to provide online help on your computer at a reasonable rate.

[ Ссылка ]

I use a Blue condenser Microphone to record my videos, here is the link
[ Ссылка ]

Check out Crowdcast for creating your webinars
[ Ссылка ]


I use Tube Buddy to help promote my videos
Check them out
[ Ссылка ]

Follow me on Facebook
[ Ссылка ]

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
[ Ссылка ]

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.

How to insert VBA code in Excel [ Ссылка ]
Sub reorder()
Dim datasheet As Worksheet
Dim reportsheet As Worksheet
Dim finalrow, erow As Long
Dim r As Long
Dim edress As String
Dim subj As String
Dim message As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object


Set datasheet = Sheet1
Set reportsheet = Sheet2
reportsheet.Range("A2:d1000").ClearContents
datasheet.Select
finalrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For r = 2 To finalrow
If Cells(r, 4).Value (less than)5 Then
If Cells(r, 5).Value (less than)5 Then
Range(Cells(r, 3), Cells(r, 5)).Copy
reportsheet.Select
Range("A200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
datasheet.Select
GoTo again
End If
End If
again:
Next r

reportsheet.Select
Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
With newEmail
.To = Sheet1.Range("G1").Text
.CC = ""
.BCC = ""
.Subject = "Reorder"
.Body = "Please reorder the following items" & vbCrLf & "Best Regards"
.display

Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor

Sheet2.Range(Cells(1, 1), Cells(erow, 3)).Copy

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
.display
'.Send
Set pageEditor = Nothing
Set xInspect = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub

свернуть