Pull Text From Web And Send Via Email.

Pull Down Combo Box By Clicking In Text Area Istead Of Pull-down Arow
I was wanting to just click on the text area of the combo box to similate clicking on the pull down arrow.


combo1 is the name of the combo box.

---

Send The Contents Of A Text Box (via Email) To An Email Address
I want to send the words of text1 to my email address using 1 command button.
Please explain step by step how to do this. As i have no idea.

Thanks

---

Send Email With Graphics And Text
Hello Everyone,

Can anyone tell me how can i send a email to multiple recipients which can contain text and graphics. For example, i can change text colour and bold settings and insert picture and send email. The email should open and should not appear as an attachment. In other words the way we compose a new message using outlook express and send.

So if anyone knows how to send email using text & pictures that will open directly as message rather than appearing as attachment.

Thanks,
Greatchap

---

Paste From Text And Send Email
Hello all,

i have managed to write to a text file from a textbox the text file is made from several textboxes and the saved as demo.txt like this:

Private Sub Command1_Click()
Open "H:demo.txt" For Append As 1
Print #1, Text1.Text
Close 1
Open "H:demo.txt" For Append As 2
Print #2, Text2.Text
Close 2
Open "H:demo.txt" For Append As 3
Print #3, Text3.Text
Close 3
Open "H:demo.txt" For Append As 4
Print #4, Text4.Text
Close 4
Open "H:demo.txt" For Append As 5
Print #5, Text5.Text
Close 5
Open "H:demo.txt" For Append As 6
Print #6, Text6.Text
Close 6
Open "H:demo.txt" For Append As 7
Print #7, ""
Close 7
and so on.

what i would have to figure out is how the text file gets renamed from the Text1.Text and then all that is printed gets pasted into an email and send to a fixed email adress. maybe the Text1.Text could also be the subject of the email.
problem is .. i don't know what email program the user will have.

i'm trying to make this because it will save me and some friends from work the hassle of sending a fax to the company we work for. as u already would have guessed i'm a total newbie to programming so any help would be great.

thanks in advance.

---

Send The Text Of A Textbox To Email
hi everyone
is it possible to send all the data in a textbox (writing) to my email account every time i press send?
also is there a way to import a specific line fron a .txt file, but not the whole document??
help greatly appreciate... especially the email question!
thanks

---

Send Text File To Email
hi
with the form i created on save i send the infor from the text boxes to a text file ....i want to create a button called post so when clicked it retrieves the data from the text file and puts into your emailer ready to be sent.. does any one know the code for this please?

---

Send Email With A Specific Text
Is it possible to let a visual basic send email with say a text from a text box and send it. Without having to press SEND or do anything, the program should do everything herself

thanks VidarJul

---

How Do You Send The Text From A Textbox To An Email Adress?
Hi,

I want to send the text (which has been typed) in a text box to an email adress when you click on a command button.
I have a vb script for that, but because it is "shareware", a pop-up window appears with the authors name in it. So you first have to click ok to continue. And that's ignoring.

Please, respond when you have a vb script or a tip that helpes me out!

Thanks, Majestic.

---

How Do You Send The Text From A Textbox To An Email Adress?
Hi,

I want to send the text (which has been typed) in a text box to an email adress when you click on a command button.
I have a vb script for that, but because it is "shareware", a pop-up window appears with the authors name in it. So you first have to click ok to continue. And that's ignoring.

Please, respond when you have a vb script or a tip that helpes me out!

Thanks, Majestic.

---

{Not Yet RESOLVED} Send Text File Via Email
hi,

how can i do this? all data in my table convert to txtfile and detect system if there's internet connection if there's internet then automatically opened the yahoo mail and ready to attach the text file created from my database table.

thanks

sibasib



Edited by - sibasib on 10/25/2004 12:36:56 AM

---

Send Email Text Of Body Message From Listview
hello,please help,how to send email text of body message from listview.

for example:
listview data:
user1 London 12/1/07
user2 canada 13/1/07
all the data here will send to email body message.



Code:
Private Sub cmdSendMail_Click()

With oSMTP
'connection
.Server = "10.0.0.250" 'local email server
'authentication
.AuthenticationType = AuthLogin
.UserName = "system@abc.com.my"
.Password = "system"
.MailFrom = "system@abc.com.my"
.SendTo = "system@abc.com.my"
.SendTo = "system@abc.com.my"
.MessageSubject = "Overtime confirm Alert "
.MessageText = "Listview.listitem "
.SendEmail

End With

End Sub


Thanks for help!

---

Send Email Text Of Body Message From Listview
hello,please help,how to send email text of body message from listview.

for example:
listview data:
user1 London 12/1/07
user2 canada 13/1/07
all the data here will send to email body message.

Code:Private Sub cmdSendMail_Click()

   With oSMTP
    'connection
    .Server = "10.0.0.250" 'local email server
    'authentication
    .AuthenticationType = AuthLogin
    .UserName = "system@abc.com.my"
    .Password = "system"
    .MailFrom = "system@abc.com.my"
    .SendTo = "system@abc.com.my"
    .SendTo = "system@abc.com.my"
    .MessageSubject = "Overtime confirm Alert "
    .MessageText = "Listview.listitem "
    .SendEmail
        
    End With
    
End Sub


thanks for help!



Edited by - monchichi on 10/19/2007 11:53:55 PM

---

Vb Code To Pull Contacts In Outlook To Email
Hi there,

Thanks for reading. I'm new to Visual Basic in microsoft outlook & was given a code to modify. It pulls an excel file & sends it to the appropriate email that i specify. But instead of writing out each & every email that is part of a distribution list that is in Outlook->Contacts, is there a function where i can just write the name of the dist list & it pulls the emails? For example, i may have a dist list in Contacts named "Wilson Wkly" & the emails that make that up are listed in the code below.

Sub Wilsonmail ()
Set myOlApp = CreateObject (“Outlook.Application”)
Set myItem – myOlApp.CreateItem(olMailItem)

Set myItem = myOlApp.CreateItem(olMailItem)

Set myRecipient = myItem.Recipients.Add (“noone1@noone.com”)
myItem.Recipients.Add (“noone2@noone.com”)
myItem.Recipients.Add (“noone3@noone.com”)
myItem.Recipients.Add (“noone4@noone.com”)
myItem.Recipients.Add (“noone5@noone.com”)
myItem.Recipients.Add (“noone6@noone.com”)

myItem.Subject = “Weekly reports”
myItem.Body = “ “ & vbCrLf _
& “Hello,” & vbCrLf & vbCrLf _
& “Attached is your file.” & vbCrLf _
& “ “ & vbCrLf _
& vbCrLf _

Set myAttachments = myItem.Attachments
myAttachments.Add “C:ABCD
eportsWindows_062405.xls”

myItem.Send

End Sub

---

Automate A Email Send By Dropping An Email Into A Specific Folder
Microsoft Outlook 2000 is the application I wish to try and complete the task in.

I want to be able to drop an email from a general folder into a folder e.g "Allowed" or "Blocked" and it sends an email to the recipent or sender of the email saying that the email was blocked or allowed, depending on which folder it was dropped into respectivly.

I have no idea were to start.

---

Open Default Email Program To Send Email
I have searched the forum for code to open the default email program so I can send an email but with no luck. Can anyone help me out?

Thanks.
Lintz.

---

Open Default Email Program To Send Email
I have searched the forum for code to open the default email program so I can send an email but with no luck. Can anyone help me out?

Thanks.
Lintz.

---

Send Email With Default Email Client
Hi,

Rather inexperianced user here so be kind

I would like to sent an email from my VB6 application.
I would like to see and edit the email if necessary before its sent. I also need it to have an attchament.

So far I have writen (read copied and modified) a code that sends email through MAPI with attachment and everything is fine. However I cant seam to find a code that will show the email before its sent.

I also have a solution using shell to open the default mail client and fill in the required fields EXCEPT the attachment. Which I can seam to find a code to do.

Surely there has to be a solution where the email appears already completed for viewing and manual send off. Without using Outlook object.

Thank you for any help.


Michal

---

Send Email From ANY Email Program From Excel VBA??
I know this sounds like one of the hundreds of 'send email?' posts on this forum but I have searched through the lot and not found what I am after.

I currently use Outlook and so it has been simple to send emails but now I need to be able to cater for anyone's email program whether it is Outlook, Notes or whatever.

is there an easy way (MAPI or something?) that will work within Excel as I keep getting errors when I have tried code posted on here for VB.

Thanks for your help.

Richard

---

How Do You Pull The Network Username To Default In The &"FROM&" Field When Sending Email...
I have a form set up in Excel with a submit button. I want it to be able to pull up the person's username/logon and default it into the FROM field in the email. Right now I have it set up so that the user enters their username onto the form and it sends it that way just fine, but they can enter someone else's name and it will send it all the same, as if the other person sent the email. Thanks in advance for the help.

---

Pull Text
Hi all,
I am working on a text problem and have tried several ways but none do it properly.
I need to separate text from a text box and put it into another.
The data is in Text1 like this: XX"DFRgt53td"ZZ

XX" and "ZZ are the only constants, the data in between them is always different.
Also these are surrounded by other data, here is an example of actual data:

647655 gtr54545eeXX"7665trgdf45rwf"ZZi 756hjff XX"u54ty934 23t24r re"ZZ4536rf

So as you can see above the data is embeded into other text. So I need a process to run and if the above example were entered into Text1.Text, then transfered to Text2.Text would be:
XX"7665trgdf45rwf"ZZ
XX"u54ty934 23t24r re"ZZ

Thx

---

How Can I Pull Certain Text From Textbox?
I am looking for some help with the following situation.

I have a text box where MultiLine = True. I also have a filter button. What I want to be able to do is copy some text from a non Windows file. An example would be the following text:

(name) Testname
(email) Test@test.com
(ext) 45678
(Role1) Red
(Role2) Brown
(Role3) Black
(MNS) 34
(subject) Role 12
(required_fields) name, email, ext

When I click on the Filter button I want to basically send all this info to a database. Testname will be put into a name field, Test@test.com will be put into the email field, etc....

Anyone know how I can go down the textbox line by line and pull each corresponding new data. The data in ( ) will not change.

Thanks for any ideas/help.
Lee

---

Pull Info From Text
I have two problems and I'll try to explain as best as I can...

1) I need my program to 'Search' through a text file for certain information that a user types in. The text file's data is broken down into each line (as so):

01.txt
"Billy", 16, "California"
"Susie", 17, "New York"
"Jack", 14, "California"

I have 8 different Text files with there own major catogory and when the user types in a specific 'Name' or 'State' I want the program to search through each text file and display the matches (Text File Number and the Person's name only) in a listbox.
(i.e. User types california under state and it should only display
01 Billy
01 Jack

2) After Displaying the names, the user can click on the name in the listbox and click a cmd button and open a new form displaying all the info on the line that matches that name. (clicks on 01 billy and distplays 17 new york in a new form) I want this also to be a achieved by looking for the number first, open that file number and Searching through that one text file to pull all the info from that line.

Hope I Explained well...



Edited by - sonic86 on 9/29/2003 5:13:11 AM

---

How Can You Send A Email From Any Email Address?
Is there a online version for this or is this only possible thru VB

Anyone know how i can send emails from any adress?

---

Outlook - VBA Send Email But Don't Use .send
Hey again,

With the vb6 plugin for outlook, I can create an email with multiple recipients but I need to send an email to each recipient individually but not have it register as a sent item in the Sent Folder each time the email has been sent out. Is there a way to do this?

Any thoughts?

Is there something that I can use that is similar to .SendMail (excell). I am currently not using the MAPI either.

---

How Do I Pull The Caption/Text From A Menu Item?
Hello,

I am trying to find a how to use the Caption of a menu item/entry to use in an error message.

Near the top of my code I have the following code. I know there may be a better way to accomplish this, but this is what I know how to do.


Code:
Public Sub Err_Msg()

Dim strErrMsg1a As String
Dim strErrMsg1b As String

strErrMsg1a = " installation unavailable at this time. "
strErrMsg1b = "Please contact Support"

MsgBox strErrMsg1a & strErrMsg1b

End Sub

Then for the menu entries I have this. These are just examples, there are several entires.


Code:
Private Sub mnuTest1_Click(Index As Integer)

On Error GoTo msg_err_01

Dim test1Path As String
test1Path = "D:models est1"

If Len(Dir$(test1Path, vbDirectory)) = 0 Then MkDir (test1Path)

Dim RetVal_test1
RetVal_test1 = Shell("T:ideasin_test1i-deasogl.cmd", vbNormalFocus)
End

msg_err_01:
Err_Msg

End Sub

Private Sub mnuTest2_Click(Index As Integer)

On Error GoTo msg_err_01

Dim test2Path As String
test2Path = "D:models est2"

If Len(Dir$(test2Path, vbDirectory)) = 0 Then MkDir (test2Path)

Dim RetVal_test2
RetVal_test2 = Shell("T:ideasin_test2i-deasogl.cmd", vbNormalFocus)
End

msg_err_01:
Err_Msg

End Sub

What I'm wanting to do is use the Caption for each menu entry to create a general error message and have the Caption list which installation it is that is unavailable, so the error message reads

Test1 installation unavailable at this time. Please contact Support.

OR

Test2 installation unavailable at this time. Please contact Support.

Can I do this, or does each menu entry have a specific name, thus not allowing me to use a gerenal message.

I can accomplish what I want by doing this.


Code:
Private Sub mnuTest1_Click(Index As Integer)

strErrMsg1a = "Test1 installation unavailable at this time. "
strErrMsg1b = "Please contact I-DEAS Support."

On Error GoTo msg_err_01

Dim test1Path As String
test1Path = "D:models est1"

If Len(Dir$(test1Path, vbDirectory)) = 0 Then MkDir (test1Path)

Dim RetVal_test1
RetVal_test1 = Shell("T:ideasin_test1i-deasogl.cmd", vbNormalFocus)
End

msg_err_01:
MsgBox strErrMsg1a & strErrMsg1b

End Sub

Private Sub mnuTest2_Click(Index As Integer)

strErrMsg1a = "Test2 installation unavailable at this time. "
strErrMsg1b = "Please contact I-DEAS Support."

On Error GoTo msg_err_01

Dim test2Path As String
test2Path = "D:models est2"

If Len(Dir$(test2Path, vbDirectory)) = 0 Then MkDir (test2Path)

Dim RetVal_test2
RetVal_test2 = Shell("T:ideasin_test2i-deasogl.cmd", vbNormalFocus)
End

msg_err_01:
MsgBox strErrMsg1a & strErrMsg1b

End Sub

With the strErrMsg1a and strErrMsg1b variables Declared in the General/Declarations section. However, that means I have to do this for every entry, I would like to stay away from that if I can.

Do you have any suggestions/ideas?

Thank you,

IF

---

Pull Textbox.text Into A Find Method
I am trying to pull text from a textbox and use it to find a record in the cureent RecordSet.

I am using a cmdButton to start the event.

Dim strSearch as String
strSearch = "SearchTerm like " & TextBox1.text & "%"
Adodc.recordset.find "strSearch"

I know this is terribly wrong, since it doesn't work.
Any suggestions?

---

Pull Info From Access Database Into Text Boxes
I have an Access Database with 3 tables: Customer, Software, Computer.
I have linked the VB 6.0 Form to this database with a data control as well as linked the text boxes to the correct fields in the linked tables in the Access database. I have a command button that I would like to activate a search of the database which will fill in the text box fields on the form with the information from the database when it finds it.
Example: I enter a customers social security number in a text box and click the search button; It should then automatically search the databse and fill in the customers name, address, phone number, etc in each seperate text box. Can you please provide me with the code/commands that I need to do this?

This is going to be used to track the software products that a customer has on his current machine. One potential problem that I anticipate having is when I search for a customer and all his info comes up including his pc information and software loaded on it......If the machine has more than one piece of software, how will the search find it?

It is my hope that I will have most all of the information in all 3 tables linked to the record I am searching for to fill in the text boxes I have created when I perform this search.

---

How Do I Pull In Semi-colon Delimited Text Filw Into Excel Through VB6 ?
I want to write a VB6 code to import a semicolon delimited text file into excel and paste Columns A:C on to columns E:J on another workbook "Results" on worksheet "INPUT". I wrote the following code after modifying VBA macro I recorded in Excel. I succeeded in copying my Master Worksheet to a new excel file called "RESULTS"; but import and column copy did not work and I got no errors when I ran the code. I suspect my problem is in opening text files as excel. Commands for that in VBA don't work in VB6. VBA commands are commented out. Can someone help me fix the problem. I am very new to VB6. Thanks.

My code is as follows: (Parts of this code may help others read excel workbooks into VB6 as that part works.)

Private Sub cmdResults_Click()

'
'
Dim SourceFile, DestinationFile
Dim LDIR, QDIR, Drive, string1 As String
Dim pos As Integer
Drive = UCase(frmInputForm.txtDrive.Text)
Directory = UCase(frmInputForm.txtDirectory.Text)
File1 = UCase(txtFile1)
File2 = UCase(txtFile2)
File3 = UCase(txtFile3)
File4 = UCase(txtFile4)
File5 = UCase(txtFile5)

RESULT = UCase(txtResults)

ChDrive "" & Drive & ""
LDIR = "" & Drive & ":" & Directory & ""
Open "" & Drive & ":" & Directory & " rouble.txt" For Output As #1
Print #1, "" & Drive & ":" & Directory & ""
ChDir "" & LDIR & ""
'OUT = Left(INP, InStr(INP, ".") - 1) & ".txt"
pos = InStr(Directory, "")
pos = pos - 1
QDIR = UCase(txtMSTR)
Print #1, "pos", pos, "Directory", Directory, "QDIR", QIR
Print #1, pos, txtMystr, "" & Drive & ":" & QDIR & ""
string1 = UCase(frmInputForm.txtKcrit.Text)
Print #1, "Kcrit", txtKcrit, "string1", string1

'Worksheets("command").Range("B14") = string1

SourceFile = "" & Drive & ":" & QDIR & "MasterSummaryK-eff.xls" ' Define source file name.
DestinationFile = "" & RESULT & "" ' Define target file name.
FileCopy SourceFile, DestinationFile ' Copy source to target.

Dim ExcelSheet As Object
On Error Resume Next
'The following is needed to handle an open EXCEL spreadsheet. This code runs best when all EXCEL spreadsheets are
' closed.
Set ExcelSheet = GetObject(, "Excel.Application")
If Err.Number = 0 Then
ExcelSheet.Application.DisplayAlerts = False
ExcelSheet.Application.Quit
End If
Set ExcelSheet = Nothing
On Error GoTo US_Err

'Add the data to the Excel Worksheet
PC = "Storing Counts in the local spreadsheet (" + StartupRST!LocalDirectory + "" + StartupRST!XLS_File + ")"
'Set ExcelSheet = GetObject("H:DailyStatusAppPNPSLogofCounts.xls")
Set ExcelSheet = GetObject("" & Drive & ":" & Directory & "" & RESULT & "")
ExcelSheet.Application.Visible = True
ExcelSheet.Parent.Workbooks(1).Visible = True
With ExcelSheet.Application.Workbooks(1).worksheets("INPUT")







'Workbooks.Open ("" & Drive & ":" & Directory & "" & RESULT & "")
ActiveWorkbook.worksheets("INPUT").Activate
'Sheets("INPUT").Select
wb = xlApp.Workbooks.Open("" & Drive & ":" & Directory & "" & File1 & "")
Workbooks.OpenText FileName:="" & File1 & "", Origin:=932 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
Workbooks("" & File1 & "").Activate

ActiveWorkbook.worksheets(1).Activate
xlApp.ActiveSheet.Columns("A:C").Select
'Columns("A:C").Select
Selection.Copy
Workbooks("" & RESULT & "").Activate
' Sheets("INPUT").Select
ActiveWorkbook.worksheets("INPUT").Activate

xlApp.ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Selection.ColumnWidth = 23
Selection.ColumnWidth = 25.43
Selection.ColumnWidth = 19.71
xlApp.ActiveSheet.Range("D1").Select
Workbooks("" & File1 & "").Activate
ActiveWindow.Close
Workbooks.OpenText FileName:="" & File2 & "", Origin:= _
932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
xlApp.ActiveSheet.Range("A1:A2").Select
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
xlApp.ActiveSheet.Range("D1").Select

ActiveSheet.Paste
xlApp.ActiveSheet.Range("D3").Select
Workbooks("" & File2 & "").Activate
xlApp.ActiveSheet.Columns("B:C").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("" & RESULT & "").Activate
xlApp.ActiveSheet.Columns("D:E").Select
ActiveSheet.Paste
Workbooks("" & File2 & "").Activate
xlApp.ActiveSheet.Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
xlApp.ActiveSheet.Range("D1").Select
ActiveSheet.Paste
xlApp.ActiveSheet.Columns("D").Select

Selection.ColumnWidth = 12.29
xlApp.ActiveSheet.Columns("E").Select

Selection.ColumnWidth = 15.86
xlApp.ActiveSheet.Range("F1").Select
Workbooks("" & File2 & "").Activate
ActiveWindow.Close
Workbooks.OpenText FileName:="" & File3 & "", Origin:= _
932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
xlApp.ActiveSheet.Columns("B:C").Select
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
xlApp.ActiveSheet.Columns("F:G").Select
ActiveSheet.Paste
xlApp.ActiveSheet.Range("F1").Select
Workbooks("" & File3 & "").Activate
xlApp.ActiveSheet.Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
ActiveSheet.Paste

xlApp.ActiveSheet.Columns("F").Select

Selection.ColumnWidth = 15.14
xlApp.ActiveSheet.Columns("G").Select

Selection.ColumnWidth = 14.14

xlApp.ActiveSheet.Range("H1").Select
ActiveWindow.SmallScroll ToRight:=1
Workbooks("" & File3 & "").Activate
ActiveWindow.Close
Workbooks.OpenText FileName:="" & File4 & "", Origin:= _
932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
xlApp.ActiveSheet.Columns("B:C").Select
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
xlApp.ActiveSheet.Columns("H:I").Select
ActiveSheet.Paste
xlApp.ActiveSheet.Range("H1").Select
Workbooks("" & File4 & "").Activate
xlApp.ActiveSheet.Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
ActiveSheet.Paste
Workbooks("" & File4 & "").Activate
ActiveWindow.Close
Workbooks.OpenText FileName:="" & File5 & "", Origin:= _
932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
xlApp.ActiveSheet.Columns("B:C").Select
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
xlApp.ActiveSheet.Columns("J:K").Select
ActiveSheet.Paste
xlApp.ActiveSheet.Range("J1").Select
Workbooks("" & File5 & "").Activate
xlApp.ActiveSheet.Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("INPUT").Activate
ActiveSheet.Paste
Workbooks("" & File5 & "").Activate
ActiveWindow.Close
Workbooks("" & RESULT & "").Activate
ActiveWorkbook.worksheets("SummaryK-eff").Activate

' Sheets("SummaryK-eff").Select
xlApp.ActiveSheet.Range("N1") = string1
ActiveWorkbook.worksheets("INPUT").Activate
xlApp.ActiveSheet.Range("C1") = string1

ActiveWorkbook.Save
ActiveWorkbook.Close
End With
US_Err:
strLog = "Code being run at '" + PC + "'" + vbCrLf + _
Err.Description + vbCrLf + " #" + CStr(Err.Number) + vbCrLf + " by " + Err.Source
Print #1, strLog 'iFile,
Resume Next
Close #1
ExcelSheet.Application.DisplayAlerts = False
ExcelSheet.Application.Quit

End Sub

---

MS OUTLOOK VB/VBA >< Pull A Person's Calendar And Write In A Text File.
Date: 01/11/2004 03:58AM MHT
  

hi experts

I am am VB6 programmer , my company has asked me for

We need some VBA work that will interface with Outlook or MS Exchange server and pull a person's calendar and write in a text file.
Please see how much work is involved in this.

Can I do this in VB or I have to use VBA ..

Please provide the amount of work required and where would I do the development .. in Ms office VBA env or VB env

regards
Ade

 
 

---

Need To Send An Email Using The &"From&" Email Address Field
Hi there everyone,

I have an issue with I would have thought would have been easy, but i need the abilty set the From email address field in Outlook. I can set To, CC, and even BC, but can not seem to set the From field. I am hoping i am having a goldfish moment.

Below is a snippet of the code i am using, and i have tried using, .from, .sender but can't seem to get it to work. Any suggestions would be hugely appreciated, as this is important.

As i said, I am hoping it is easy, and i am just have a brain fade.

----------------------
Dim objOutlook
Dim objOutlookMsg
Dim olMailItem
Dim objAttachements
' Create the Outlook object and the new mail object.
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
' Define mail recipients

objOutlookMsg.Sender = "sender@somewhere.com.au"
objOutlookMsg.To = "to@somewheredifferent.com.au"

Again, any thoughts?

Thanks
Graeme

---

Send Email
Hello,

I wonder if somebody could help me. I am writing a report/fault logging program and wanted to know how to send an email within VB.

When the user reports a fault they get a ticket number. I would ideally like an automated email sent to them displaying the ticket number and fault. I am not quite sure how to go about this. I have noticed on some websites that they use a mailto command. Would this work?

If it is of any use we use Novel GroupWise at work.

Thanks in advance

Mick

---

Email Send
I want to know when player registers to my game.like send it to email.something like this:>>Playername<< has registered to your game!

---

Using CDO To Send Email
Hello,

I went to the Microsoft website and looked for examples of using CDO to send a MIME email. I think I understand it, but I cannot seem to be able to send the email. Here is the sample code that I got from Microsoft:

Dim iMsg As New CDO.Message
Dim iBp As CDO.IBodyPart
Dim iBp1 As CDO.IBodyPart
Dim iBp2 As CDO.IBodyPart
Dim iBp3 As CDO.IBodyPart
Dim Stm As ADODB.Stream
With iMsg
.From = test@test.com
.To = test@test.com
.Subject = "A html and text message with attachment."
End With
''''''''''''''''''''''''''''''''
' Level 1: multipart/mixed (root)
''''''''''''''''''''''''''''''''
Set iBp = iMsg ' returns IBodyPart on object
iBp.ContentMediaType = "multipart/mixed"

''''''''''''''''''''''''''''''''
' Level 2: multipart/alternative
''''''''''''''''''''''''''''''''
Set iBp2 = iBp.AddBodyPart
iBp2.ContentMediaType = "multipart/alternative"

''''''''''''''''''''''''''
' Level 3: text/plain
''''''''''''''''''''''''''
Set iBp3 = iBp2.AddBodyPart
With iBp3
.ContentMediaType = "text/plain"
.ContentTransferEncoding = "7bit"
Set Stm = .GetDecodedContentStream
Stm.WriteText "Here is the plain text version of the message"
Stm.Flush
End With

''''''''''''''''''''''''''
' Level 3: text/html
''''''''''''''''''''''''''
Set iBp3 = iBp2.AddBodyPart
With iBp3
.ContentMediaType = "text/html"
.ContentTransferEncoding = "quoted-printable"
Set Stm = .GetDecodedContentStream
Stm.WriteText "<html><body><p>HERE is the plain text version of the message</p></body></html>"
Stm.Flush
End With

'''''''''''''''''''''''''''''
' Level 2: image/gif
'''''''''''''''''''''''''''''
Dim Flds As ADODB.fields
Set iBp2 = iBp.AddBodyPart
With iBp2
.ContentMediaType = "image/gif"
.ContentTransferEncoding = "base64"
Set Flds = iBp2.fields
Flds("urn:schemas:mailheader:content-disposition") = _
"attachment; filename=""testimage.jpg"""
Flds.Update
Set Stm = .GetDecodedContentStream
Stm.LoadFromFile App.Path & " estimage.jpg"
Stm.Flush
End With

iMsg.Send

'--------------------------

It seems to create the MIME properly, but I get an error when I try to send it (iMsg.Send). What is the proper code to put in authentications?

-xmen64

---

How To Send An Email From VB
ok..so im new in here.... im doing this project - an embedded thing taht connects up with a pc relay card ...ppl tell me -
" its so dan easy "
but i cant figure how u can send input /out put thru the port (parallel /serial i dont even know whats the diff !!) ...
so thats why i need some help here.

a few Q's first
a) do i need to do spmethng in c++ and then vb does only thr interface !
b ) what is it with dll 's i hear bout o much
c ) what does winsock do ? will it help me here.
d ) does anyone have sample code for waht im talking bout.. the connection between ports ... it jus sounds too "general" ...how do i actually go around "doing" it ..

I dont expect any1 of u answer "all" my questions ..but pls try anyway.
thnx
Keep Clicking,
Bosky B-)

---

How To Send An Email?
How do you send an email through Vb because im making a game registeration system that needs to get a code from an email so how do i send an email.Its an API but i cant find it.
Please tell me the API.And how to call it.

---

Send Email
How can I use VB6 to send email with the SMTP?

---

Send Email From VB
Currently, I'm using MAPI to send email from my VB application & it works fine. But i need to have outlook opened on my pc.

Is there any other way that the email can be sent without the pc having outlook installed?!?!

---

Send Email
OK guys,

I need to send email from visual basic. I am aware I can use CDONTS or CDO. I have used these with ASP. I need to know if the user will have to have a smtp server installed on their machine.
For example if the user is using Windows 98 will my application be able to send email? Shoul I use MAPI or VBA?

I need something that the user can format and send the mail without any message boxes asking for permission to use Outlook.

Any Ideas?

Thanks,

Mike

---

Send Email With VB
Hi there,

How to send email from VB application ? Did you know an ocx file that provide my case? How can i get that?

Thank's

---

VB6 - Send EMAIL
About 5 years ago I wrote a little VB6 desktop app. that sends out emails from small text files created in another application.
It's nothing fancy and uses the MAPI control to send the email.

As virus protection, fire walls, outside programs, etc. have crept onto my user's computers my little program is no longer staple. It gets various run-time errors on certain PC's.

What is the simplest way to code an "email send" that will work in a mixed envirionment. I'm just sending with small text files as a .MsgNoteText with out attachments. Often 100 -150 slightly different emails will be sent to different addresses.

---

Best Way To Send An Email?
Hi Guys,

I have a text box control, that will display an email address.

Whats the best way to allow the user to send an email to this address via clicking a CommanButton Control?

Some people use Outlook , some dont, some people use AOL, everyone seems to use a different way of emailing, is there a simple emailing solution?

Thanks again

---

Send An Email
hello, i was wondering how to open outlook express send window, with a particular email address in the send box, i know this can be done using HTML pretty easily, but i need to do it with VB... Thank u

~zigga15

---

Send Email
Hallo everybody...
I want to send an attachment file through email.... Could anyone please give me a very simple example regarding to that.

Thank you very much....

---

Send EMAIL...
Is it possible to make a program to send emails with attachements, but not using outlook?

Note that i don't have outlook installed...so i can't use some programs i've seen here.

---

Send Email
hi, is there a rutine where in case a users dont remember their passwords I could send user and password info to their emails which are in a database

thx a lot

---

How To Send An Email With VB?
Hello!

Forget the Lock/Hide mouse i dont need em, was just curious how they work . Still need to know how to send an email in VB though, like to submit to someones account or something

--Death Warrior

P.S. Seriously i wasent even planning to make a virus/trojan

---

Send An Email
I have written a DBMS program that has a login screen to access the database.
It asks for username and password and enters the DB.

I want to make a provision where if the user forgets his password, the login details (username - password ) are sent to his/her email address .

It should work like this. The user clicks on a button called "Forgot Password". Then a form opens, with a textbox prompting the user to enter his/her email address. The login details are retrieved and sent to the email at the click of a button called retrieve.

Below is the code for the login screen . Any help will be appreciated.


Code:
Private Sub cmdLogin_Click()
Dim un As String
Dim ps As String

adodc1.Refresh

un = Text1.Text 'storing the login and password entered in the variables un and ps
ps = Text2.Text

Do Until adodc1.Recordset.EOF
If adodc1.Recordset.Fields("name").Value = un And adodc1.Recordset.Fields("password").Value = ps Then
mn.Show 'comparing database values with values entered
login.Hide
Exit Sub





Else
adodc1.Recordset.MoveNext 'moving to next record on database
End If



Loop

Dim msg As String

msg = MsgBox("Username/password mismatch.Passwords are case sensitive! Try Again!", vbOKCancel)
If (msg = 1) Then 'displays message if login or password
login.Show 'is wrong

Text1.Text = "" 'clears the textboxes
Text2.Text = "" 'reloads login screen
Text1.SetFocus
Else
MsgBox " Thank you for using LussoVoyageur Car rental software", , "Good Bye"
End
End If

End Sub






Private Sub Command1_Click()
PassEmail.Show

End Sub

Private Sub Form_Resize()
With Me
.Width = Screen.Width
.Height = Screen.Height
.Top = 0
.Left = 0
End With

End Sub

---

How To Send Email
Just want a very simple way using a text box, and a command button,

Private Sub Command1_Click()

End Sub

Private Sub Text1_Change()

End Sub

So what ever the person types in the text box will be sent to my email address etc.

---

Send Email Vb
I'm using this code below to send email using Microsoft outlook. However i need to send the email from the vb program without involving outlook. How can i convert this code to send via Imap or smtp nstead?
[vbcode]
''''''''''''''''''''''''''''''''SEND NEW SPREADSHEET VIA OUTLOOK EMAIL'''''''''''''''''''''''''

Dim msg As String
Dim olApp As Object
Dim olNS As Object
Dim olMail As Object

Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olMail = olApp.CreateItem(0) ' 0 = mailitem

'olMail.Recipients.Add "xxxx@xxxx.com"


olMail.Subject = "Latest Invoices"

' make some place for the attachment vbcrlf
olMail.HTMLBody = msg & "<p>" & "<htmlbody><font color=#0000FF><b>New Invoice Numbers:</b></font>" & "<p>" & myvar & "<p>" & "</htmlbody>"

'<b>text</b> to create it bold and <font color="#0000FF">text</font>


olMail.Attachments.Add "c:
ew.xls"
olMail.Send

Set olApp = Nothing
Set olNS = Nothing
Set olMail = Nothing

Unload Me
End Sub
[/vbcode]

---