Ron's e-mail won't work when I change the send to:


T

Theo

Hi all - can someone review this (******) and see what I'm missing?
Thanks very much!
T

Sub Send_WR_Est()
'Working in 2000-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

Set Source = Nothing
On Error Resume Next
Set Source = Range("C156:C160").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

With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr,
FileFormat:=FileFormatNum
On Error Resume Next
'.SendMail ThisWorkbook.Sheets("Sheet1").Range("C110").Value, _
Sheets("Sheet1").Range("C116").Value
.SendMail "(e-mail address removed)", _
"This is a Test - Work Request Estimate"
****It will work with the above line, but won't with the line above it.
There is no error message. C110 is a valid e-mail and the worksheet/workbook
is not protected.
Instead of "Sheet1, I've tried the name of the worksheet and the name in
Ron's code (mysheet) - any other suggestions?*****
On Error GoTo 0
.Close SaveChanges:=False
End With

Kill TempFilePath & TempFileName & FileExtStr

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
 
Ad

Advertisements

R

Ron de Bruin

Hi Theo

'.SendMail ThisWorkbook.Sheets("Sheet1").Range("C110").Value, _
Sheets("Sheet1").Range("C116").Value

Did you copy the macro in the same workbook as the sheet with the mail address ?

Note: you use ThisWorkbook

As it is now it is looking for the mail address in the workbook with the code
and it is looking for the subject in the activeworkbook
 
T

Theo

Hi Ron - yes, the macro and the sheet where the e-mail to and subject are
located are in the same workbook. But I'm not sure where that leaves me ...
do I add This Workbook like this? (I'm at home and don't have Outlook
Explorer, so I can't test this ....)
'.SendMail ThisWorkbook.Sheets("Sheet1").Range("C110").Value, _
ThisWorkbook.Sheets("Sheet1").Range("C116").Value

Thanks Ron - I use your information/web-site ALL the time. Thank you very
much.
T
 
R

Ron de Bruin

This is working OK

.SendMail ThisWorkbook.Sheets("Sheet1").Range("C110").Value, _
ThisWorkbook.Sheets("Sheet1").Range("C116").Value
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top