Macro: Mail attachemnet and text problem

[blaksnm]

Hi
I have borrowed this macro from Ron de Bruin (thanks Ron ) to genrate a new ail and a insert default signature.
Problem 1: I have a Range("ExistinFile").value to find and attach corresponding file to the mail
Problem 2: I have 25 celles - named text, text2 .... aso tha should be the text in the mail.
Problem 3: Can I easily format the text in the mail?

I can't come to and end of these problems even after trying a lot.
Can anyone please guide me?

 

[Arithos]

Hi
I have borrowed this macro from Ron de Bruin (thanks Ron ) to genrate a new ail and a insert default signature.
Problem 1: I have a Range("ExistinFile").value to find and attach corresponding file to the mail
Problem 2: I have 25 celles - named text, text2 .... aso tha should be the text in the mail.
Problem 3: Can I easily format the text in the mail?

I can't come to and end of these problems even after trying a lot.
Can anyone please guide me?

Hi,

I cant see what macro you are referring to, is there an attachment not on here? It would be great if you could post your code.
And its regarding Outlook?

Arithos

 

[blaksnm]

Good morning Arithos
Thanks for trying to help:
See macro below

The macro generates a mail inclusive the default Outlook Signature all right, but I want (but don't know how) to attach a file (path-name given as Range("PD_CompleteFileNameExisting").value as well
Would you help me?

Sub Mail_Outlook_With_Signature_Html_1()
' Working in Office 2000-2013
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Timesheet" & _
"Please see attached TimeSheet issued for comfirmation.<br>"
On Error Resume Next
With OutMail
.Display
.To = Range("PD_CustomerEMAIL").Value
.CC = Range("PD_NymoEMAIL").Value
.BCC = ""
.Subject = Range("Subject").Value
.HTMLBody = strbody & "<br>" & .HTMLBody
'.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub



[h=3][/h]