You have no idea how attached you can become to another human being until you have kids. They are so vulnerable and so innocent and so cute that you become hopelessly in love with them, to the point where you feel vulnerable.
What if something were to happen to them? How could I possibly have a reason to live it this little guy/girl were to perish? It puts things in an a relative perspecitive that cannot be appreciated fully until it is experienced first hand.
VB Code for sending emails
Option Explicit
Public Function SendEmail(ByVal vFirstNM As String, ByVal vEmailAdd As String, ByVal vCode As String) As Integer
Dim MsgStr As String
On Error GoTo ErrorHandler
Dim imsg As New CDO.Message
Dim objCDO As New CDO.Message
Dim objBP As CDO.IBodyPart
objCDO.AutoGenerateTextBody = True
objCDO.MimeFormatted = True
objCDO.To = vEmailAdd
objCDO.From = "local@domain.tld"
objCDO.Subject = vFirstNM & " : " & "See the new launch that is turning the Copier Industry on its head"
'objCDO.HTMLBody = "Check this out: image tag here "
objCDO.CreateMHTMLBody ("file://c:/MarketEmail.html")
objCDO.Send
SendEmail = 1
Exit Function
ErrorHandler:
SendEmail = Err.Number
MsgStr = Err.Description
End Function
Public Function SendEmail(ByVal vFirstNM As String, ByVal vEmailAdd As String, ByVal vCode As String) As Integer
Dim MsgStr As String
On Error GoTo ErrorHandler
Dim imsg As New CDO.Message
Dim objCDO As New CDO.Message
Dim objBP As CDO.IBodyPart
objCDO.AutoGenerateTextBody = True
objCDO.MimeFormatted = True
objCDO.To = vEmailAdd
objCDO.From = "local@domain.tld"
objCDO.Subject = vFirstNM & " : " & "See the new launch that is turning the Copier Industry on its head"
'objCDO.HTMLBody = "
objCDO.CreateMHTMLBody ("file://c:/MarketEmail.html")
objCDO.Send
SendEmail = 1
Exit Function
ErrorHandler:
SendEmail = Err.Number
MsgStr = Err.Description
End Function
Labels:
code
Subscribe to:
Posts (Atom)


