Adding an auto delete rows to yours already existing macro for emailing

**msgtrainey** · 11-19-2012, 05:31 AM

Adding an auto delete rows to your already existing macro for emailing. Would like to delete Rows A and B after the
worksheet is copied and emailed.

**arlu1201** · 11-19-2012, 05:36 AM

I guess you mean columns. Just add this line to the end of your macro -

Worksheets("Sheet1").columns("A:B").delete

**msgtrainey** · 11-19-2012, 05:56 AM

Sub Mail_Every_Worksheet()
'Working in 2000-2010
    Dim sh As Worksheet
    Dim wb As Workbook
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim OutApp As Object
    Dim OutMail As Object

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

    If Val(Application.Version) < 12 Then
        'You use Excel 97-2003
        FileExtStr = ".xls": FileFormatNum = -4143
    Else
        'You use Excel 2007-2010
        FileExtStr = ".xlsm": FileFormatNum = 52
    End If

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

    Set OutApp = CreateObject("Outlook.Application")

    For Each sh In ThisWorkbook.Worksheets
        If sh.Range("B1").Value Like "?*@?*.?*" Then

            sh.Copy
            Set wb = ActiveWorkbook

            TempFileName = "Sheet " & sh.Name & " of " _
                         & ThisWorkbook.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

            Set OutMail = OutApp.CreateItem(0)

            With wb
                .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum

                On Error Resume Next
                With OutMail
                    .to = sh.Range("B1").Value
                    .CC = ""
                    .BCC = ""
                    .Subject = "3rd Shift Report"
                    .Body = ""
                    .Attachments.Add wb.FullName
                    'You can add other files also like this
                    '.Attachments.Add ("C:\test.txt")
                    .Display   'or use .Send
                End With
                On Error GoTo 0

                .Close savechanges:=False
            End With
            Set OutMail = Nothing

            Kill TempFilePath & TempFileName & FileExtStr

        End If
    Next sh

    Set OutApp = Nothing
         
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   
End Sub

This is my mail macro but the worksheet("ShiftReport".columns ("A:B").delete gives error...

**arlu1201** · 11-19-2012, 05:58 AM

It should be

worksheets("ShiftReport").columns ("A:B").delete

**arlu1201** · 11-19-2012, 05:58 AM

msgtrainey,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.

**msgtrainey** · 11-19-2012, 06:11 AM

My deepest apologies for not using the code tabs. Thank you for taking the time to help me. Thank you again

**arlu1201** · 11-19-2012, 06:20 AM

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.