Sending A Mail With Rich Text Format -Correct
Hi Guys,
I am trying to send mail from the code below. what parameters do i need to change to such that mail can be decrypted in the correct format. The attached file is the description of the mail i get.
************************************************************************
Public Function SendMail(strTo As String, strCC As String, strBody As Variant, strSubject As String)
Dim oItem As Outlook.MailItem
Set oOutlook = New Outlook.Application
Set oItem = oOutlook.CreateItem(olMailItem)
With oItem
.To = strTo
.CC = strCC
.BodyFormat = olFormatRichText
.Body = strBody
.Subject = strSubject
.send
End With
End Function
************************************************************************
Can anyone help me on this..
thanks
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Sending A Mail With Rich Text Format
Hi Guys,
I am trying to send mail from the code below. what parameters do i need to change to such that mail can be decrypted in the correct format. The attached file is the description of the mail i get.
************************************************************************
Public Function SendMail(strTo As String, strCC As String, strBody As Variant, strSubject As String)
Dim oItem As Outlook.MailItem
Set oOutlook = New Outlook.Application
Set oItem = oOutlook.CreateItem(olMailItem)
With oItem
.To = strTo
.CC = strCC
.BodyFormat = olFormatRichText
.Body = strBody
.Subject = strSubject
.send
End With
End Function
************************************************************************
Can anyone help me on this..
thanks
Mail From Rich Text Format
Hi!
I would like to send a formatted email from a Rich Text Box from my own application.
I don’t want to send the RTF-text as an attach file, but as a formatted text witch appear formatted directly in the arriving mail.
How do I tell my application that I should send the mail as RTF format?
I use the Winsock control.
Is this possible?
Best regards
Magnus Pernsved
Sending Mail Format
I have the following code in my program but when it sends a mail out it always set as rich text mail format. Any idea, how to set the sending mail format to text?
VB Code:
Set objOutlook = CreateObject("Outlook.application") Set objNameSpace = objOutlook.GetNamespace("MAPI") Set mItem = objOutlook.CreateItem(olMailItem) Item.To = "invalid@email.address" mItem.To = "Amjath.MOhammad@xx.com" mItem.Subject = "iTrak Offline Form Submit ******** DO NOT EDIT THIS EMAIL AND RESEND. CHOOSE A NEW FORM **********" 'set the subject of the form email 'Item.Subject = "**************** DO NOT EDIT THIS EMAIL AND RESEND. CHOOSE A NEW FORM *************" CopyAttachments Item, mItem strProps = "STATUS" & "::" & "NEW" & "<OFEOF>"& Chr(13) Set objUserProperties = Item.UserProperties For i = 1 To objUserProperties.Count Set objUserProp = objUserProperties(i) If (objUserProp.Name = "CC") OR (objUserProp.Name = "Subject") Then i = i+1 End If 'MsgBox "UserProp " & i & ": " & objUserProp.Name strProps = strProps + objUserProperties(i).Name & "::" & objUserProperties(i).Value & "<OFEOF>"& Chr(13) Next 'MsgBox "The user Properties are: " & Chr(13) & strProps mItem.Body = strProps mItem.Save mItem.Send
Correct Text Format
hi, i have a project now about correct text format validating i tried creating but i get no luck someone could provide a simple code?
the format should be:
Quote:
ALERT Brand/Model IMEI Name Address Cellphone Number Date Lost Place where it lost
this is the text format:
Quote:
ALERT Nokia 6630 123456789012347 Edmund Cinco Catbalogan, Samar 09155618198 12-01-06 Divisoria, Manila
if the format are now followed give error..
Regards,
Formatting Outlook Mail Using Rich Text Box
Hi,
I am using a rich text box in my VB form and I want that all the formatted text entered into the rich text box be displayed in the body of the outlook mail.
If I pass richtextbox1.text to the outlook mail item it removes all the formatting done in the rich text box.
If I pass richtextbox1.rtftext to the outlook mail it displays the formatting characters also in the box for eg it displays {rtf ansi etc...
I tried to set the body format of the outlook mail item object to olFormatRichText but it also did not help.
Please help me
Adding Text To Rich Textbox Without Changing Format Of Existing Text?
Hello all. This is my first time working with RTB's, and I'm having a little trouble getting started. I'm sure it's some little problem of syntax/semantics, but I can't figure it out. A little help would be greatly appreciated!
I have a RTB to which I am trying to add texts of different formats. When I add each string, the entire box text takes the most current format. This makes perfect sense to me, as I am essentially rewriting the ENTIRE textbox (I am using the ".Text = .Text & "NEWTEXT" format that I am accustomed to using for textboxes.
What am I doing wrong? Thanks!
VB Code:
'1. Create a new form.'2. Add a button named butGo.'3. Add a RTB named rtbText.'4. Cut & Paste the procedure below. Private Sub butGo_Click()Static Counter As IntegerCounter = Counter + 1With rtbText Select Case Counter Case 1: .Font.Size = 16 .Font.Bold = True .Text = .Text & "This is a test..." Case 2: .Font.Size = 12 .Font.Bold = False .Text = .Text & "This is only a test!" Case 3: .Font.Size = 6 .Font.Italic = True .Text = .Text & " Can you see me?" End SelectEnd WithEnd Sub
Sending Stuff To A Rich Text Box
Hi, I need to know how to send stuff to a rich text box, in another program.
I know this requires API, and im just getting into it, so any help would be appreciated.
Here's what I know:
The window the Rich Text Box is on can be found using this code:
Dim aolframe As Long, mdiclient As Long, aolchild As Long
aolframe = FindWindow("aol frame25", vbNullString)
mdiclient = FindWindowEx(aolframe, 0&, "mdiclient", vbNullString)
aolchild = FindWindowEx(mdiclient, 0&, "aol child", vbNullString)
The RichTextBox can be found using this code:
Dim aolframe As Long, mdiclient As Long, aolchild As Long
Dim richcntl As Long
aolframe = FindWindow("aol frame25", vbNullString)
mdiclient = FindWindowEx(aolframe, 0&, "mdiclient", vbNullString)
aolchild = FindWindowEx(mdiclient, 0&, "aol child", vbNullString)
richcntl = FindWindowEx(aolchild, 0&, "richcntl", vbNullString)
The code was generated using an API Thingy from Http://www.patandjk.com (Hope I got the URL right).
Anyway, any help would be appreciated.
Also as im sure you've probably guessed there is other code, but its in a module. And the program is AOL 6.
Thanks for any help you can offer
Rich Text Format
Hi There,
I have search all over the internet to find code to format a phrase but I haven't had much luck. Most of the code is for formatting keywords.
I finally got this code:
Code:
Public Sub RTBFormat(RTB As RichTextBox, sWord As String, sBold As Boolean, sItalic As Boolean, sColor As ColorConstants, intIndent As Double)
Dim i As Long
Dim p1 As Long, p2 As Long
Dim Text As String
Dim sTmp As String
Text = RTB.Text
p1 = InStr(1, Text, sWord)
Do While p1 > 0
RTB.SelStart = p1 - 1
RTB.SelLength = Len(sWord)
RTB.SelBold = sBold
RTB.SelColor = sColor
RTB.SelItalic = sItalic
RTB.SelIndent = intIndent
p1 = InStr(p1 + 1, Text, sWord)
Loop
End Sub
The only problem with this code is that everything is in the same formatting!!
For example if I have the sentence "Hello World" and I tell it to have hello red and world blue the whole text is in blue.
I am trying to use this code in a chat program I am making. Could some help improve it so it only modifies the phrase I want.
Thanks in adance,
James
Rich-Text-Format
Problem-Description:
I wrote a Macro which saves E-mails on HardDisk. I have two selectable Formats : *.msg & *.rtf . so i got the problem , that the Part with the rtf-Format doesn´t work proberly. Based on the fact, that i suppose that the (vba-outlook) - saveAs - Method- Call is correct it must depends on the content or (and) the file-appendix.
Does anybody knows more about it ?? ! !
THX NEXUS
Edited by - NeXuS_ONE on 11/4/2003 1:36:12 AM
Rich Text Format
I looking a sample about how to paste a BMP from
clipboard, I tried this
rtfVista.OLEObjects.Add , , , Clipboard.GetData()
rtfVista.Refresh
I tried to get the RichText.vbp, which is located in
the VBSamplesCompTool directory of the Visual Basic
CD-ROM, but I couldnt find it, anybody will help me?
Thanks by your help
Alfredo
Rich Text Format
I am facing a problem where the .rtf file in rich text box are not in A4 size and this make my alignment are not in the right manner. Is the rich text box don't have a function where we can set the paper size as A4 or it only have a maximum size? Another problem is how can I load the table or line in winword and display in rich text box? Hope to get a sample program for the problem! Thanks...
Rich Text Box Format Problem
I'm having some trouble with the RichTextBox. On the computer I developed the application on, it works fine, but all others that I've installed the app, it doesn't work properly. Somehow, when I'm hiding the form with the richtextbox, it looses it's bold, italic and superscript formatting (if any exists) and this is triggering the change event. The result is the user is asked if they want to save changes before they continue, even though no changes have been done. I've made sure that both machines are using the same version of RICHTX32.OCX. Has anyone seen this before? Is this a flaw in the control?
Thanks,
Scott
Sending Rich Text To Outlook Mails In Office XP
Hello,
I have a program which copies contents from a rich text box and passes the contents to an Outlook mail object.
For Office 2000 if I write ".textRTF" instead of simply ".text" then in Outlook mail the formatting is preserved.
But this doesnt work with Office XP.
Any help will be appreciated.
Funky Format Of RTF Rich Text Boxes
I have a VB5 app using rich text boxes to display data from RTF files. The files were created in Wordpad. At home the data displays correctly in the boxes both during development and when run. In work, this morning, I discover a right margin (?) in the box (so it appears) is causing the text to word wrap and mess up the format. Yet RightMargin is set to zero. Any clues?
AS WRITTEN (and displayed at home)
Plastics
Thermoforming is a process by
which a flat sheet of plastic is...
AS DISPLAYED
Plastics
Thermoforming is
a process by
which a flat
sheet of plastic
is...
Saving A File In Rich Text Format?
Hi,
I'm currently making a program which is much like Word, and I have decided to save all of the documents as a RTF file. I have worked out the common dialogue bit for saving, but when I paste a picture into the Rich Text Box, and save it, the picture isn't there! and the font that I have selected isn't there! It's always Courier New!!
Any help would be greatly appreciated,
Chris
Parsing Rich Text Format Files
I was wondering if anybody has ever tried to do this?
I'm trying to decide which way works the best. Either taking each rtf file and saving it in text format, then parse out the data...
-or-
Add a Microsoft Word reference to a vb project, open the file, read and parse out the data...
Any suggestions would be greatly appreciated!!!
Text Encryption In Rich Text Format
How can i get ascii text encryption to work with a rich text box. An example i found such as this(below) will not work with a richtext box. Anyone have any ideas or examples to show me?..Working out of a rich text box and a password:
'Encrypt text
Private Function EncryptText(strText As String, ByVal strPwd As String)
Dim pwdpos As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
#End If
'Encrypt string
If Len(strPwd) Then
For pwdpos = 1 To Len(strText)
c = Asc(Mid$(strText, pwdpos, 1))
c = c + Asc(Mid$(strPwd, (pwdpos Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next pwdpos
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
~~~Thanx
Rich Text Box Format To Text File
I want to be able to save the contents of a Rich Text box to a text file so that the formating looks the same as the way it displayed on the screen. The rich text box does wrap the words correclty but when you save the text box conents, it's just one long string. Any ideas?
Sending Text Files In VB By E-mail
Can anyone pls tell me the code needed in order to send a text file by e-mail through a Visual Basic Application simply by clicking a command button?
Renzo
Sending Text Box Info Via E-mail
Hi all, I'm trying to write a program that takes the information typed into "tb_Name" (text box) and attaches that information automatically to the e-mail.
The e-mail system I am using is Lotus Notes. Thus far, without me trying to add the text box info, it works. When I try to get it to work I get some errors.
Take a look. :]
(Using VB6 btw)
Code:
Private Sub Submit_Click()
Dim Session As Object
Dim db As Object
Dim doc As Object
Form1.Visible = True
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GetDatabase("", "")
If db.IsOpen = True Then
'Already open for mail
Else
db.OPENMAIL
End If
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.sendto = "test@test.com"
'test@test.com, test@test.com, test@test.com, test@test.com
doc.Subject = "Test"
doc.Body = "test"
doc.SaveMessageOnSend = False
doc.Save False, False
doc.SEND (True)
Set doc = Nothing
Set db = Nothing
Set Session = Nothing
Unload Form1
Unload HelpForm
End Sub
Covert Rich Text Content To HTML Format
I have some formatted content in the Rich text Box. Is there any way to convert the contents to HTML so that i can display it in Outlook email message window.
My requirement is to format some text contents to be included before sending an automated email through MS Outlook
Help Please....
Rich Text Box Usage For Read-only File (RTF Format)
Hi, I'm working on opening a Rich Text Box to display a file that will be read-only for a .RTF file. I'm trying to get it so that the cursor doesn't appear in the box, and have a scroll bar appearing on the right hand side. I think I can do it using the enabled function set to false, and using a vertical scroll bar, but I'm not quite sure how to. I know how to use scroll bars, but I just don't see how I can code it to scroll up and down the text in a Rich Text Box. Can anyone help?
Mapi And Rich Format Text In Message Body ???
Hello
I am trying to send email using MAPI controls and i want the text of Body to be in Rich Format.
I tried this with RichTextBox but no result.
does anyone have any idea ???
thanks
Using A Default Subject Text When Sending E-mail
I'm opening the default e-mail software with an e-mail of my choice, by using the following line:
ShellExecute hwnd, "", "mailto:mail@mail.com", "", "", 1
But is there a way to also include a subject text?
*Challenge* Rich Text Format In Crystal Report Viewer
I am actually writing my text data in the Rich Text Box of VB6. I have given buttons to do some formatting like 'Bold', 'Tab' etc. for the Rich Text Box data like MS WORD. The data is then saved in the Access Data Base in RTF format. When I retrieve the data from the Access data base to VB6, it is OK. But when I retrieve the same data in Crystal Reports 8.5, then CR is not able to interpret the data correctly. The text is OK but the formatting is disturbed.
Text Format In Rich Text Box
i've got richtext box and i've set the font and size, ok, but when you copy and paste from another app into it, the font and size from the copied text is used. anyone know of a way to use the font and size i am using?. The only way i can think of is to select all the text in the rich text box and reset the font immediately after new text is added.
(please excuse the crap typing, got one arm in a sling after a nasty squash accident)
cheers
john
Sending A Text With Format To The Printer
How can I print directly to the printer with an specific font and size (say Arial 12) and in a number of column and row that are not necesarily integers (say 10.3,12.2)?
Thanks!!
[outlook2000] Set Body Text = Change Mail Format
Hi all!
I tried to create a mail and change it's body. But if I change the body of the mail, it becomes "rich text" instead of "plain text"
Code:
Nachricht.Body = "hello"
Can someone tell me what I do wrong?
I already tried to change the format after the bodyset manually in the toolbar with the function "SendKeys", but that doesn't work and I don't know why
I think it should work:
Code:
'make the email plain text
MailInspector.CommandBars("Menu Bar").Controls("Format").Controls("Plain Text").Execute
SendKeys "{TAB}", False
SendKeys "{ENTER}", False
I already searched the internet and this board but I didn't found a reason. I thank you for any help!
MAPI - Format Text In Body Of E-Mail Message
I am using MAPI to send e-mail automatically from and Access database. I have a table of standard messages. The field in the table is called "EMailMessage" and its type is Memo.
When creating the message in the table I format it, so for example it will look like this:
"Dear Sir
Thank you for you help
Kind regards
TimP"
When creating the message I use the code:
MapiMessages.MsgNoteText = EMailMessage 'where EMailMessage is the message retreived from the database.
However the text comes out like this:
"Dear Sir Thank you for you help Kind regards TimP"
how can I keep its original format?
Sending Text With Color Format In An Auto Greeter For Paltalk
Code:
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _
(ByVal hwnd As Long) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const WM_KEYDOWN = &H100
Private Const WM_SETTEXT = &HC
Private lhWnd(1) As Long
Private palLong As Long
Private palGroupName As String
Private palStatusBar As Long
Private palStatusText As String
Private palLastJoined As String
Private palTextBox As Long
Private isRunning As Boolean
Private Sub Form_Load()
With Timer1
.Enabled = False
.Interval = 1
End With
Command1.Caption = "Start Greeter"
Text1.Text = "***-Welcome %sn-***"
isRunning = False
With RichTextBox1
.SelBold = True
.SelColor = vbRed
.SelFontSize = 12
End With
RichTextBox1.SelText = Text1.Text
End Sub
Private Sub Command1_Click()
If isRunning = True Then
Command1.Caption = "Start Greeter"
isRunning = False
Timer1 = False
Else
Command1.Caption = "Stop Greeter"
isRunning = True
Timer1 = True
End If
End Sub
Private Sub Timer1_Timer()
Dim I As Integer
Dim NickName As String
Dim GreetMSG As String
lhWnd(0) = FindWindow("#32770", vbNullString) 'Find Group Window
lhWnd(1) = FindWindowEx(lhWnd(0), 0&, "#32770", vbNullString) 'Find Group Child Win
palStatusBar = FindWindowEx(lhWnd(0), 0&, "msctls_statusbar32", vbNullString)
palGroupName = String(GetWindowTextLength(lhWnd(0)) + 1, Chr$(0))
GetWindowText lhWnd(0), palGroupName, Len(palGroupName)
palTextBox = FindWindowEx(lhWnd(1), 0&, "richedit20a", vbNullString)
palTextBox = FindWindowEx(lhWnd(1), palTextBox, "richedit20a", vbNullString)
If InStr(1, LCase(palGroupName), LCase(" GROUP")) Then 'Verify Group
If isRunning = True Then
palLong = SendMessageLong(palStatusBar, WM_GETTEXTLENGTH, 0&, 0&) 'Get Text Length
palStatusText = String(palLong + 1, " ") 'Create Buffer
Call SendMessageByString(palStatusBar, WM_GETTEXT, palLong + 1, palStatusText) 'Get Text
palStatusText = Left(palStatusText, palLong) 'Remove Blanks
I = InStr(1, palStatusText, "joined") - 13 'Check for Join Messages
If I < 0 Then Exit Sub 'If no join message then GET OUT!
NickName = Mid(palStatusText, 8, I) 'Get the Nickname
On Error Resume Next
AppActivate "Group - Voice Conference"
On Error Resume Next
If palLastJoined <> NickName Then 'Check if not joined already
palLastJoined = NickName 'Remember the last Nickname joined
GreetMSG = Replace(Text1.Text, "%sn", NickName) 'Replace %sn with The NickName
On Error Resume Next
AppActivate "Group - Voice Conference"
On Error Resume Next
Call SendMessageByString(palTextBox, WM_SETTEXT, 0&, GreetMSG) 'Set Text in Box
Call SendMessageLong(palTextBox, WM_KEYDOWN, 13, 0&) 'Press Enter
End If
End If
End If
End Sub
first problem i have if im not click on paltalk it dont welcome them
second one i have is i want it to be bold size 12 and vb color
any ideas
Need Help To Include Auto Signature && Group Mail ID In Sending Mail Through VB
Hi,
I am sending mail through VB Excel Macro with the following code and it is working fine.
1.However in "To" field I would like use Group under which I have already defined Mail ID's to whom I want to send the mail.
For eg. I have created a Group as "Adi" as shown below and used in my To field,but it is not sending the mails.
If I directly hard code all the Mail ID's under this group in the To field below,mail goes successfully.
2.I would like to use Auto signature facility of Outlook while sending my mails using code below.It has been set in Outlook but when mail goes through this code,Auto Signature doesn't come.
Is there something like .Signature property which can be used or is there any other method to achieve the desired results.
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = "Adi"
.Cc = "hdagar@csc.com"
.Subject = "Model Office '" + OD1 + "' Cycle Details " + OD + " (Cycle Date : " + BWG + ") - " + OD3
.Body = "Please find MO '" + OD1 + "' cycle details in the spreadsheet attached below. This cycle was run on " + OD + " with cycle date of " + BWG + "." + vbCrLf + vbCrLf + vbCrLf + _
"All the files mentioned in the request form have been NDMed." + vbCrLf + vbCrLf + vbCrLf + "Pre-cycle and Post-cycle backups:" + vbCrLf + vbCrLf + "KKMP.U8AILMP" + OD1 + ".VBKP.BEFORE.DAILY.C" + aDate1 + vbCrLf + _
"KKMP.U8AILMP" + OD1 + ".VBKP.AFTER.DAILY.C" + aDate1
.Attachments.Add (Path)
.Send 'Let´s go!
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
Checking An E-mail Address Is Correct !!
Hello,
I have received the following code to verify that an e-mail address is correctly typed into a text box to be passed into an Access 97 table.
The code runs fine in VB 6 but I also need it to run in VB 5. When I run the code in VB 5 I get the following error message: "Complie Error" "Sub or Function Not Defined"
then when I click 'debug' the following piece of code is highlighted within the module code: InStrRev
I would greatly appreciate any help, links or code as to why this is happennig or even a way of getting around it within VB 5. The code I am using is below...
Thanks,
Andy.............
Code:
Function checkValidEmail(theAddress) As Boolean
'http://www.4guysfromrolla.com/webtech/051999-1.shtml
On Error GoTo ExitFalse
' checks for a valid email
' returns false for invalid addresses
Dim atCnt
checkValidEmail = True
' chk length
If Len(theAddress) < 5 Then
' a@b.c should be the shortest an
' address could be
checkValidEmail = False
' chk format
' has at least one "@"
ElseIf InStr(theAddress, "@") = 0 Then
checkValidEmail = False
' has at least one "."
ElseIf InStr(theAddress, ".") = 0 Then
checkValidEmail = False
' has no more than 3 chars after last "."
ElseIf Len(theAddress) - InStrRev(theAddress, ".") > 3 Then
checkValidEmail = False
' has no "_" after the "@"
ElseIf InStr(theAddress, "_") <> 0 And _
InStrRev(theAddress, "_") > InStrRev(theAddress, "@") Then
checkValidEmail = False
Else
' has only one "@"
atCnt = 0
For i = 1 To Len(theAddress)
If Mid(theAddress, i, 1) = "@" Then
atCnt = atCnt + 1
End If
Next
If atCnt > 1 Then
checkValidEmail = False
End If
' chk each char for validity
For i = 1 To Len(theAddress)
If Not IsNumeric(Mid(theAddress, i, 1)) And _
(LCase(Mid(theAddress, i, 1)) < "a" Or _
LCase(Mid(theAddress, i, 1)) > "z") And _
Mid(theAddress, i, 1) <> "_" And _
Mid(theAddress, i, 1) <> "." And _
Mid(theAddress, i, 1) <> "@" And _
Mid(theAddress, i, 1) <> "-" Then
checkValidEmail = False
End If
Next
End If
Exit Function
ExitFalse:
checkValidEmail = False
Exit Function
End Function
[Edited by AndyCapp on 04-07-2000 at 11:12 AM]
Sending Mail Using Default Mail Client
hello,
I am trying to send mail using default client and am using 'shellexecute' function from windows api to do this.
The content of the mail is taken from a richtext control.
I am passing appropriate arguments for eg subject, body etc.
all this works!
Problem:
The body of the message is just one big line ie no new lines and no breaks, also the fonts and colors are lost too. I have tried using 'vbCrlf' but it doesnt help.
can anyone help with this? thx.
Get Correct Format !!
Code:
Private Sub Timer1_Timer()
SS = SS + 1
If SS = 60 Then
SS = 0
MM = MM + 1
End If
If MM = 60 Then
MM = 0
HH = HH + 1
End If
theTime.Caption = HH & " : " & MM & " : " & SS
End Sub
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
above is an example of stop watch........... now when timer start its all good....
but time format is wrong
it must be 00 : 01 : 05
but it displays 0 : 1 : 5
how can i get correct format
XML General Format Q. Is This Correct?
On the server I create some XML.
This XML holds info about columns (Columns) and DataRows (DB records). The header section also contains info about the data type, and column type. Col Type 1 is a column that displays the username.
Also the XML contains info about what type of "dataset" the XML is. In this case in the attached XML file the dataset type is 2, which is that of UserJobs. It also contains the owner UID since I have loaded UserJobs for a specific user.
This example is of UserJobs, jobs assigned to a user and below is an example of a datarow element.
Code:
<DataRow UID="{4C833FC0-0C48-4E4B-83DB-C350C2B3DB35}">
<Username UID="{9A01914C-74FA-4180-B86B-A0CBC36AE86A}">Wokawidget</Username>
<Description>Learn .NET</Description>
<CompletionDate />
</DataRow>
As you can see the data row has a UID, this is the UID in the DB for the given job. Also notice that the username element has an attribute that is the UID of the User.
Now, I have been told that this is incorrect, and I should have the data in the following format:
Code:
<DataRow>
<UID>{4C833FC0-0C48-4E4B-83DB-C350C2B3DB35}"</UID>
<Username>Wokawidget</Username>
<UserUID>{9A01914C-74FA-4180-B86B-A0CBC36AE86A}</UserUID>
<Description>Learn .NET</Description>
<CompletionDate />
</DataRow>
What do people think?
Woka
- Sending E-mail To Several E-mail Addresses
I have an access database with a query that returns about 100 e-mail addresses. Every month I send out a newsletter to my clients. How can use Outlook and VBA to do this? Please help...
I know how to do it in .NET but not in VBA.
Thank you
Hj007
"UNIX is an operating system, OS/2 is half an operating system, Windows is a shell, and DOS is a boot partition virus." - Peter H. Coffin
"Your body is 70 percent water, so don't worry: Even if you were to drown, only 30 percent of you would die." - www.THEONION.com
Edited by - homerj07 on 4/21/2004 8:32:57 AM
Verify Correct Date/time Format
Hello guys!
I have the following problem. I want user to enter time and date into listbox. How is it possible to assure that user have entered date and time with correct format, in my case "dd.mm.yyyy hh:mm".
Thank you in advance,
Laura
FormatDateTime Function Not Returning Correct Format
I am using the formatdatetime function to fill a drop down menu and am trying to get it to display the full day and date using
<select id="choosedate" name="choosedate">
<%
response.write "<OPTION value='" & date & "'>" & FormatDateTime(date(), 1) %>
</select>
This however displays the date as '25 November 2003'
The strange thing is that when I sue the value selected above and pass it to the formatdatetime function elsewhere
formatdatetime(CallDetails.choosedate.value, 1)
the date is returned as 'Tuesday, 25 November 2003'.
This happens wheteher I use 'vbLongDate' or '1' for the format parameter.
Pleeeease Help.
Sending Mail
Hi,
how can i send mail from VB 6 with out involving outlook express.
thanks
Sending Mail
All right, hopefully this will be an easy question to answer. I am fairly new to VB, and have never designed an application that required anything to be sent over the internet.
I want to know how I can make my program send an e-mail to an e-mail address entered on the form. I have heard of MAPI and CDONTS, but neither of these (from what I heard/read) will do it how I want.
In MAPI it sounds like the user has to use a profile from their Outlook...I don't want this to happen, I want to create the "profile" for the mail to make it obvious it is from my program.
CDONTS seems to only run on a server machine, and I am not running the program on any servers at all.
I was going to set up a Config section that will let you specifiy an SMTP server to use, and send the mail via that.
Hopefully I havn't confused most of you as much as I have myself. Thanks for the help.
Can Someone Plz Help Me? {Sending E-Mail}
how do i make it so when the remote computer enters words in a textbox / form and then clicks a Commandbutton.. how do i make it so all the entered text gets sent to an email ? thanks a lot in advance !
|
TRACKER
