Marco Question: How to set active range as email subject?

[vitolau]

Hi All,

does any know how to set an active range as email subject?

case like i may select certain cell or range and want it send out as email subject.

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.to = ""
.Item.Subject = ""
.Item.Send
End With

 

[Momentman]

This should help

https://www.rondebruin.nl/win/s1/outlook/bmail3.htm

 

[vitolau]

This should help

https://www.rondebruin.nl/win/s1/outlook/bmail3.htm

Hi Momentman, thanks for your reply.

i am looking for a way that can put activerange (usually just 2 cells but no fixed range)to the subject line. (while the body of the email is blank.

 

[tocy777]

I am using this, the selected cells are sent in email:

Sub send_countries()    
    If MsgBox("Do you want to send the selected cells via email?", vbYesNo, "Send cells?") = vbNo Then Exit Sub
    
    Dim OutApp As Object
    Dim OutMail As Object


    Dim SELECTED_cell As Range


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


    On Error Resume Next
    With OutMail
        .To = "@gmail.com"
        .CC = "@yahoo.com"
        .BCC = ""
        .Subject = "Subject goes here"
        .Body = "These were the selected cells:" + vbCrLf + vbCrLf
        
        For Each SELECTED_cell In Selection.SpecialCells(xlCellTypeVisible)
            .Body = .Body + SELECTED_cell.Value + vbCrLf
        Next SELECTED_cell
        .Send
    End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing
    
    MsgBox "Email sent"


End Sub