Ron,
I use the Range in the Body of the email already.
I am setting up a form for the user to select either Send the range in the
body of the email, or to email the range as an attachment.
I customised the range to suit the attachment option, but i cannot get a
logo to display in the attached sheet.
Is it possible to attach a range with vb with the attached sent as a PDF
instead?
I have PDF Factory.
Corey....
"Ron de Bruin" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Hi Corey
>
> See
> http://www.rondebruin.nl/mail/folder3/mailenvelope.htm
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Corey" <(E-Mail Removed)> wrote in message
> news:uatK%23%(E-Mail Removed)...
>> Is there a way to ADD an image to the below code so it appears on the
>> sheet attached int he email ?Sub Mail_Range()'Working in 200-2007 Dim
>> Source As Range
>> Dim Dest As Workbook
>> Dim wb As Workbook
>> Dim TempFilePath As String
>> Dim TempFileName As String
>> Dim FileExtStr As String
>> Dim FileFormatNum As Long
>> Dim OutApp As Object
>> Dim OutMail As Object Set Source = Nothing
>> On Error Resume Next
>> Set Source = Range("A1:K50").SpecialCells(xlCellTypeVisible)
>> On Error GoTo 0 If Source Is Nothing Then
>> MsgBox "The source is not a range or the sheet is protected,
>> please correct and try again.", vbOKOnly
>> Exit Sub
>> End If With Application
>> .ScreenUpdating = False
>> .EnableEvents = False
>> End With Set wb = ActiveWorkbook
>> Set Dest = Workbooks.Add(xlWBATWorksheet) Source.Copy
>> With Dest.Sheets(1)
>> .Cells(1).PasteSpecial Paste:=8
>> .Cells(1).PasteSpecial Paste:=xlPasteValues
>> .Cells(1).PasteSpecial Paste:=xlPasteFormats
>> .Cells(1).Select
>> Application.CutCopyMode = False
>> End With TempFilePath = Environ$("temp") & "\"
>> TempFileName = "Selection of " & wb.Name & " " & Format(Now,
>> "dd-mmm-yy h-mm-ss") If Val(Application.Version) < 12 Then
>> 'You use Excel 2000-2003
>> FileExtStr = ".xls": FileFormatNum = -4143
>> Else
>> 'You use Excel 2007
>> FileExtStr = ".xlsx": FileFormatNum = 51
>> End If Set OutApp = CreateObject("Outlook.Application")
>> OutApp.Session.Logon
>> Set OutMail = OutApp.CreateItem(0) With Dest
>> .SaveAs TempFilePath & TempFileName & FileExtStr,
>> FileFormat:=FileFormatNum
>> On Error Resume Next
>> With OutMail
>> .To = "(E-Mail Removed)"
>> .CC = ""
>> .BCC = ""
>> .Subject = "This is the Subject line"
>> .Body = "Hi there"
>> .Attachments.Add Dest.FullName
>> 'You can add other files also like this
>> '.Attachments.Add ("C:\test.txt")
>> .Send 'or use .Display
>> End With
>> On Error GoTo 0
>> .Close SaveChanges:=False
>> End With Kill TempFilePath & TempFileName & FileExtStr Set
>> OutMail = Nothing
>> Set OutApp = Nothing With Application
>> .ScreenUpdating = True
>> .EnableEvents = True
>> End With
>> End Sub
>> --
>> Corey ....
>> The Silliest Question is generally
>> the one i forgot to ask.
Similar Threads
