Is this macros are correct ?

[Ram Behera]

1. Macro for Sending one mail by attaching one particula sheets:


Sub Macro1()

'Set outapp = CreateObject("Outlook.Application")

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail

.To = "[email protected]"
.CC = "[email protected]" & " ; " & "[email protected]"

.Subject = "Process Notes "

.Body = "Hello Ram," & vbNewLine & vbNewLine & "Please find attached the process notes as Of now." & vbNewLine & vbNewLine & "Please let me know if you need any further changes."

.Attachments.Add CurrentWorkbook.FullName

'.Send
.display

End With

On Error GoTo 0

Set OutMail = Nothing

Set AppMail = Nothing


'Sheets("Sheet2").Select
End Sub



2. Macros for going to different sheets:



Sub MasterSheet()
Worksheets("MASTER SHEET").Select
End Sub

Sub MasterSheet1()
Worksheets("MASTER SHEET").Select
End Sub


Sub MasterSheet2()
Worksheets("MASTER SHEET").Select
End Sub


Sub MasterSheet3()
Worksheets("MASTER SHEET").Select
End Sub

Sub MasterSheet4()
Worksheets("MASTER SHEET").Select
End Sub


Sub MasterSheet5()
Worksheets("MASTER SHEET").Select
End Sub



Sub MasterSheet6()
Worksheets("MASTER SHEET").Select
End Sub

Sub Click()
Worksheets("VOLUME").Select
End Sub


Sub PRODUCTIONDETAILS()
Worksheets("PROD DETAILS").Select
End Sub


Sub DAILYVOLUME()
Worksheets("DAILY").Select
End Sub

Sub WEEKLYVOLUME()
Worksheets("WEEKLY").Select
End Sub

Sub MONTHLYVOLUME()
Worksheets("MONTHLY").Select
End Sub

Sub QUARTERLYVOLUME()
Worksheets("QUARTERLY").Select
End Sub

Sub HALFYEARLYVOLUME()
Worksheets("HALFYEARLY").Select
End Sub

Sub ANNUALVOLUME()
Worksheets("ANNULLY").Select
End Sub


Sub TrainingLists()
Worksheets("TRAINING LIST").Select
End Sub

Sub TRAININGDUE()
Worksheets("TRAINING DUE").Select
End Sub

Sub TCSTRAININSGDUE()
Worksheets("TCS TRAINING DUE").Select
End Sub

Sub CITITRAININSGDUE()
Worksheets("CITI TRAINING DUE").Select
End Sub

Sub TRAININGDUE2()
Worksheets("TRAINING DUE").Select
End Sub

Sub TRAININGDUE4()
Worksheets("TRAINING DUE").Select
End Sub



3. Macros for for sending training details:


'Sheets("Sheet2").Select
End Sub

[xladept]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[Ram Behera]

Okay. Thanks

[xladept]

Hey Ram,

You said ok but you haven't put the code tags around your post # 1 - please do that

[arlu1201]

Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem. Once you have done this please send me a PM and I will remove this request.

To change a Title on your post, click EDIT POST then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.