Y
yl011229
I can now sending email with attachment by different email address. But I
want to do that when the receiver open my email, a web page displayed as
content with my attachment. Can anyone please tell me how to do this? Thank
you very much!!!
My current coding as follows:
Private Sub Command1_Click()
Dim objoutlook As Object
Dim objmail As Object
Set objoutlook = CreateObject("outlook.application")
Set objmail = objoutlook.CreateItem(0)
With objmail
.Subject = txt_Subject
.To = "(e-mail address removed)"
.Body = txt_Body.Text
.Attachments.Add txt_location & "X723.pdf"
.display
.Send
End With
Set objmail = Nothing
Set objoutlook = Nothing
MsgBox "Sent"
End Sub
want to do that when the receiver open my email, a web page displayed as
content with my attachment. Can anyone please tell me how to do this? Thank
you very much!!!
My current coding as follows:
Private Sub Command1_Click()
Dim objoutlook As Object
Dim objmail As Object
Set objoutlook = CreateObject("outlook.application")
Set objmail = objoutlook.CreateItem(0)
With objmail
.Subject = txt_Subject
.To = "(e-mail address removed)"
.Body = txt_Body.Text
.Attachments.Add txt_location & "X723.pdf"
.display
.Send
End With
Set objmail = Nothing
Set objoutlook = Nothing
MsgBox "Sent"
End Sub