Search results

Have this code, but doesn't' work If Range("Q:Q").Select = Yes Then sBody = "Hi" & " " & vbCrLf & vbCrLf & "Here is the monthly invoice # for" & " " & wksht.Cells(rw, "Q").Value & "." & "As per your instructions we will withdraw the amount from your loading wallet. " & vbCrLf &...

I tried your suggestion but I get error, when <p>, and when put oEmail.HTMLBody = sBody said variable not defined. Would you please write for me the whole line of this code the way it should be, and I paste it into the code: sBody = "Hi" & " " & Me.txtFirstName & ", <p>... thanks so much, i...

Thank you. I tried get same results.

Do you mean to change the code sequence: here it's the code right now: If Me.txtBody > 0 Then 'If Len(Me.txtBody & vbNullString) > 0 Then sBody = Me.txtBody ElseIf Forms![Contact Details]![Auto Collect] = True Then sBody = "Hi" & " " & Me.txtFirstName & "," & vbCrLf & vbCrLf & "Here is the...

This is the whole procedure: Private Sub btnSend_Click() Dim oApp As New Outlook.Application Dim oEmail As Outlook.MailItem Dim sBody As String Set oEmail = oApp.CreateItem(olMailItem) If IsNull(Me.txtTo) Then ' No email address MsgBox "Please Select a Customer, if the...

Tried the way suggested below, sBody = "Hi" & " " & Me.txtFirstName & "," & vbCrLf & vbCrLf & "Here is the monthly invoice # for " & Me.txtCompany.Column(1) & "." & " " & "advise us if you would prefer to wire us payment to our updated <b> SVB USD Bank </b> account shown on the invoice, or if...

I have this code, but I don't know why works somtimes and sometimes doesn't for example, is if auto collect is checked, should pick "as per your instructions" if not the other message, but doesn't work all the time, any idea? thanks Code: If Me.txtBody > 0 Then 'If Len(Me.txtBody &...

This is code is in Microsoft access, and there's a button send, when i click opens outlook and that's the body message. so I want to underline and bold this sentence "updated SVB USD" thanks

I tried but doesn't do it: is it possible if put the code below, you can show me there where to put the <b> in the sentence, the one want to put bold and underline is in red, thansk. sBody = "Hi" & " " & Me.txtFirstName & "," & vbCrLf & vbCrLf & "Here is the monthly invoice # for " &...

thanks. I am new in vba, just learning, can you show me, please. thanks

I have this code, How can i Underline and bold just part of the message, Here it's the code: sBody = "Hi" & " " & Me.txtFirstName & "," & vbCrLf & vbCrLf & "Here is the monthly invoice # for " & Me.txtCompany.Column(1) & "." & " " & "advise us if you would prefer to wire us payment to our...

Any help on this please, i tried all suggestions here and still getting same message, I attached the file, will that be easier to figure out by opening the file. I will really appreciate any help, i have been trying for months and still not able, as I don't have that much knowledge in VBA...

Hi, I have A/R access database and in Excel i have Statement of Account Spread sheet, from Access i would to attach not the whole spread sheet but just the statement as body message of the email. any suggestion example of vba code to do so. thanks.

could please give a sample how do you use usually use Me.Controls(.... thanks

Thank you. but i tried get same error.

i did a breakpoint when click send goes to the code highlight in yellow this line: If Len(Me.txtBody & vbNullString) > 0 Then

i tried to upload it but it won't let me. can you tell how to do breakpoint, i am new in vba so i don't know yet how to do it. I will try to upload the file later from home later. thanks so much for your help.

I tried your suggestion: If Len(Me.txtAttachment) > 0 Then Dim varAttachment As Variant Dim iLoop As Integer varAttachment = Split(Me.txtAttachment.Value,";") For iLoop = LBound(varAttachment) To UBound(varAttachment) oEmail.Attachments.Add varAttachment(iLoop)...

I did try the Paul's suggestion but still didn't work. here the code: If Len(Me.txtBody & vbNullString) > 0 Then sBody = Me.txtBody Else If Forms![Contact Details]![Auto Collect] = True Then sBody = "Hi" & " " & Me.txtFirstName & "," & vbCrLf & vbCrLf & "Here is the monthly invoice # for...

i have this code for some reason never put the message even if the checkbox is checked, would you please help me in what i need to change in order for it to work: here it's the code: If txtBody >= 0 Then sBody = Me.txtBody Else If Forms![Contact Details]![Auto Collect] = True Then sBody =...