+ Reply to Thread
Results 1 to 2 of 2

Using a cell value as the subject line

  1. #1
    Qaspec
    Guest

    Using a cell value as the subject line

    How do I use the cell value from cell a8 as the subject line in the following
    code?
    More specifically the words "QA Snapshot" and "the value of cell (a8)"

    Private Sub Send1_Click()

    Dim strdate As String

    ActiveSheet.Copy
    strdate = Format(Date, "mm-dd-yy")
    ActiveSheet.Name = "QA Snapshot"
    ActiveWorkbook.SaveAs "QA Snapshot" & " " & strdate & ".xls"
    ActiveWorkbook.SendMail "", _
    "QA Snapshot"
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    ActiveWorkbook.Close False
    End Sub

  2. #2
    Vasant Nanavati
    Guest

    Re: Using a cell value as the subject line

    ActiveWorkbook.SendMail "", _
    "QA Snapshot" & Range("A8")

    --

    Vasant


    "Qaspec" <Qaspec@discussions.microsoft.com> wrote in message
    news:CCCC4A34-783F-4041-95C2-2978F88AF6CD@microsoft.com...
    > How do I use the cell value from cell a8 as the subject line in the

    following
    > code?
    > More specifically the words "QA Snapshot" and "the value of cell (a8)"
    >
    > Private Sub Send1_Click()
    >
    > Dim strdate As String
    >
    > ActiveSheet.Copy
    > strdate = Format(Date, "mm-dd-yy")
    > ActiveSheet.Name = "QA Snapshot"
    > ActiveWorkbook.SaveAs "QA Snapshot" & " " & strdate & ".xls"
    > ActiveWorkbook.SendMail "", _
    > "QA Snapshot"
    > ActiveWorkbook.ChangeFileAccess xlReadOnly
    > Kill ActiveWorkbook.FullName
    > ActiveWorkbook.Close False
    > End Sub




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1