Question : Add CrLf to a string of text

I am writing lines of text to an .ini file. See below:

a.WriteLine ("Email text= Dear " & strfirstname & ", " & _
"Your quote has been attached to this e-mail. Thank you for allowing " & rs("Name") & " the opportunity " & _
"to provide this quotation. Please call us for any of your QUALITY label needs.")

But I need to put a CrLf between each sentence. I tried using vbCrLf but got errors when I tried to save it. How can I embed code to produce a CfLf between each line???????

Answer : Add CrLf to a string of text

In PDFEdit995 you need to set Email text= in the INI file and create the message body in c:\pdf995\res\utilities\email.txt

Taken from the PDFEdit995 help page

1: Autolaunch
When Autolaunch is checked, pdf995 will automatically display PDF documents in the default PDF viewer when printing is complete. This requires that a PDF viewer is installed.

When Auto-Email is checked, pdf995 will automatically attach a PDF to an email message for sending. This requires that a default MAPI compliant email client such as Microsoft Outlook is specified.

Adding the following to the Parameters section of pdf995.ini will allow you to specify a recipient, text and a subject.

Email Subject=hello world
Email Recipient [email protected]
Email Recipient Name=Pdf995 Support
Email text=this is the text

Auto-Email can also be configured to send via SMTP directly without requiring user input and without displaying the email message. The following parameters are required:

SMTP=1
Email Subject=
Email Recipient Address=
Email Server=
Email Password=
Email From Address=
Email text=

In both cases, if the entry Email text entry is omitted, the message text may be specified in c:\pdf995\res\utilities\email.txt

Cheers, Andrew

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

           
           
             Sub Example_CreateTxtFile()
Dim strFileName As String
Dim ff As Long
Dim strData As String
Dim aryData
Dim cnt As Long
 
    strFileName = "c:\pdf995\res\utilities\email.txt"
    If Dir(strFileName) <> "" Then Kill strFileName
    
    ff = FreeFile
    
    Open strFileName For Output As #ff
    Print #1, Chr(34) & "ID" & Chr(34) & "," & Chr(34) & "Description" & Chr(34)
    Print #1, "1," & Chr(34) & "Hello" & Chr(34)
    Print #1, "2," & Chr(34) & "World" & Chr(34)
    Print #1, "3," & Chr(34) & "OK" & Chr(34)
    Close #ff
 
 
End Sub

           
         

Open in New Window

Select All