Help me for Mailing

[japaro]

I use the command to put down, but I inserted the recipient of mail that I bring to the cell "D2"


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("A3:F40")
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:=1
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Rows(1).RowHeight = 42
.Rows(2).RowHeight = 13
.Rows(3).RowHeight = 13
.Range("4:12").RowHeight = 21
.Range("14:25").RowHeight = 19
.Cells(1).Select
Application.CutCopyMode = False
End With

With ActiveSheet.Pictures.Insert("C:\imagen.jpg")
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
End With

With ActiveSheet.Pictures.Insert("C:\imagen2.jpg")
.Left = ActiveSheet.Range("C26").Left
.Top = ActiveSheet.Range("A27").Top
End With

TempFilePath = Environ$("temp") & "\"
TempFileName = "IIBB Nº" & Range("F8")
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = 56
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.To = Range("D2")
.CC = ""
.BCC = ""
.Subject = "tax"
.Body = "Please check attached file." & vbCrLf & " " & vbCrLf & "Thanks" & vbCrLf & " " & vbCrLf & "Marcela "
.Attachments.Add Dest.FullName
.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



Please help!!!

 

[jimrward]

.To = Range("D2")

try

.To = Range("D2").value

 

[japaro]

.To = Range("D2")

try

.To = Range("D2").value

Thanks for responding, I tried but not

 

[Ruddles]

I use the command to put down, but I inserted the recipient of mail that I bring to the cell "D2"... Please help!!!

I'm sorry, Japaro, but I honestly don't understand what you mean by "I use the command to put down".

What is the actual problem with this code?

Helpful tip: when posting code, it's better for everyone including you if you place it between CODE tags - the # icon in the advanced editor toolbar. This will display it in a fixed-width font and maintain indenting, both of which make code easier to read and follow, this encourages people to become involved and therefore produces more replies - which is what you want.

 

[jimrward]

instead of .TO, use the following

.Recipients.Add Range("D2").value

 

[japaro]

instead of .TO, use the following

.Recipients.Add Range("D2").value

Thanks for responding.

I just try, but no, I do not see the target I have in cell D2, I is nothing.

 

[japaro]

I'm sorry, Japaro, but I honestly don't understand what you mean by "I use the command to put down".

What is the actual problem with this code?

Helpful tip: when posting code, it's better for everyone including you if you place it between CODE tags - the # icon in the advanced editor toolbar. This will display it in a fixed-width font and maintain indenting, both of which make code easier to read and follow, this encourages people to become involved and therefore produces more replies - which is what you want.

</OBJECT>


Thanks for responding.

Are the codes you use to build the macro,
I do not see the target I have in cell D2, I is nothing.

 

[Ruddles]

Are the codes you use to build the macro,
I do not see the target I have in cell D2, I is nothing.

"I is nothing" - what does this mean? That's like saying "Yo esta nada" or "Je est rien" or "Io e niente" - I don't understand what you're trying to say. What is "I"?

Where are you expecting to "see the target"? Are you sure you have an address in D2 (if that's what you're asking)? Is your code looking at the correct worksheet?

Is the message being created at all? Are there things being put into it -like the subject, body or attachment?

Can you post this in your native language, perhaps? We have non-English speakers here.

 

[japaro]

Sorry, the google translator is not walking very well!.

I have the recipient's mail to his direction in cell D2 (which is not always the same), but the macro does not drink, do not put anything in To, left blank, with nothing

 

[Ruddles]

This is nonsense. What language do you speak normally?