Outlook - VBA Send Email But Don't Use .send
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?
Is there something that I can use that is similar to .SendMail (excell). I am currently not using the MAPI either.
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
How Do I Send An Email Thru Outlook 98 Whitout Needing To Have Outlook Running?
Does anyone know how to send an email without needing Outlook running?
I have written this code, which works fine when Outlook is running on my machine, but when Outlook is not running I get a MVB error (see attachment mvberror.jpg). When I hit debug it returns me to; Set ObjOutlookMsg = objOutlook.CreateItem(olMailItem). I cant be having this, please help.
response = MsgBox("Do you want to send a message to Bev telling her you made a copy of " & lstfiles.FileName, vbYesNo, "STOP")
If response = vbYes Then
Dim objOutlook As New Outlook.Application
Dim ObjOutlookMsg As Outlook.MailItem
Set ObjOutlookMsg = objOutlook.CreateItem(olMailItem)
.To = "email@example.com"
.Subject = "test"
.Body = "Bev, " & vbNewLine
.Body = .Body & "I made a copy of drawing number: ** " & lstfiles.FileName
.Body = .Body & " **, from the Bravo folder. " & vbNewLine & vbNewLine
.Body = .Body & "Thanks"
Set ObjOutlookMsg = Nothing
Set objOutlook = Nothing
Any help would be greatly appreciated,
Thanks in advance,
How To Send Email With Outlook
i have a problem with my program using vb6 to send email. i need to send attachment too, i can't send email using outlook express.
i have tried but email was sent to microsoft outlook.
Send Email Without Using Outlook
Does anyone know of any freeware code about to allow creation and transmission of an email message for receipt by an Exchange/Outlook client, to report when code encounters an error ?
Send Email W/o Outlook
I need my application to be able to send emails automatically and without any input of a user w/o using Outlook. The messages need to be text formatted, not HTML. I would like to use SMTP, but don't know how. I am on a Win2k system. Any help is appreciated. Thanks.
VB App Send Email, Not Using Outlook
I want the user of my program to click on a command button and it will automatically email information to me. I don't want to depend on the user having Outlook or any other particuliar email program at all. Is there a way to do this?
Life is one big IF/ESLE statement
How To Send An Email Not Using MS Outlook?
I would like to have in my application the funtionality to send emails to the support group. However, the users who are going to use this application are not allow to connect to an email account using MS Outlook, intead they connect through a web interface. This is because they try to minimize users getting viruses. Is there any way to use visual basic and send emails through a different application other than MS Outlook?
Send Email Through Outlook
I am new to using the Visual Basic editor in MS Excel. I am trying to compose and send an email through Outlook not Outlook Express. I have solved everything but the last part of actually sending the email. It just stalls out at this point and I manually have to click "send" in Outlook. Thanks for your help in advance. Jeff
Here is my code:
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim Email As String, Subj As String
Dim Msg As String, URL As String
For r = 5 To 186 'data in rows 5-186
'Get the Email Address
Email = Cells(r, 53)
Subj = "ZV October P/(L) for Market Segment " & Cells(r, 9)
'Compose the Message
Msg = ""
Msg = Msg & Cells(r, 7) & "," & vbCrLf & vbCrLf
Msg = Msg & "Listed below is the October 2003 Cost per Available Seat Mile (CASM) and Operating Profit / (Loss) for market segment " & Cells(r, 9) & "." & vbCrLf & vbCrLf
Msg = Msg & "CASM: " & Cells(r, 50) & vbCrLf & vbCrLf
Msg = Msg & "Operating Profit / (Loss): " & Cells(r, 51) & vbCrLf & vbCrLf
'Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
'Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
'Create the URL
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
'Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
'Wait three seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:04"))
How Do I Know Who Send Me Email (outlook)
How Do i know who has send me email from outlook. I want to know email adress not just an sender's name
I try following but every time I am get blank or null string
Set myolapp = CreateObject("Outlook.Application")
Set myNameSpace = myolapp.GetNamespace("MAPI")
Set per_folder = myNameSpace.Folders("Personal Folders")
Set inb_folder = per_folder.Folders("Inbox")
For Each myitem In inb_folder.items
sender = myitem.ReplyRecipientNames
MsgBox myitem.subject & " " & sender
' This display subject but not sender
Can I Send Email Without Outlook On My PC
I need your help.
I checked a software in which it ask me to enter my email address and it will send me my password to run the software. when i entered my email and click on send button it send an email to the software owner and i got a reply from them uickly at the email address which i entered to get password.
now i wanna know how it could be possible in VB and it doesnt popup any window i.e. of MAPI or Outlook
plz reply me i m in a great need of this code.
bye thnx in advance
How To Send Email Via Outlook Express
Dim o As Outlook.Application
Set o = New Outlook.Application
Dim mi As Outlook.MailItem
Set mi = o.CreateItem(olMailItem)
.Subject = "Correspondence file from " & CurrOffice
.To = recepient
.Body = Body
.Attachments.Add App.Path & "corresp.exe"
Set mi = Nothing
Set o = Nothing
with that code i can send mail but i need to install microsoft outlook.
is anybody knows how to send mail using outlook express
Send An Email Without Opening MS Outlook
How do I send an email in Access without opening MS Outlook? My code is written in button in a form, first it opens the report then it sends the report.
Private Sub create_rmr_Click()
DoCmd.OpenReport "rptrmr", acViewPreview
DoCmd.SendObject acSendReport, "rptrmr", acFormatHTML, "firstname.lastname@example.org", , , "RMR Report", "Lot # 1111", False
Then MS Outlook window opens up
“A program is trying to automatically send e_mail on your behalf. Do you wnt to allow this?
If this is unexpected, it may be a virus and you should choose “no”.”
How can I get the report send/email without this message popping up
I Want My Project To Use Outlook To Send Email
I want my Project to use Outlook to send email. I am using VB6.0 for a distributed app that will identify and send email to the appropriate people. The addresses and messages will be stored and drawn from an Access 97 db.
I know to reference Outlook in Project -> References but then am not sure how to proceed from there. Any suggestions or redirections would be helpful. Thanks. mm
I Want To Send An Email Using Code Thru Outlook?
I want to create a system where I can email a user. Can I write this in code. Example: the time is 12:00 am. Send Steve and email that says the time is 12:00. I know how to do everything but create and send the email?
Thanks for any help
How To Send Email Form In Outlook
i'm trying to send HTML form in the body of the email.
i have the HTML source in a string and i want to embed that into the body of the mail.
below is the code i used and it displays the html source as it is.
the variable C_form has the HTML source in it.
Private Sub sendMailToContact(email As String, c_form As String)
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
.To = email
.Subject = "Test Mail"
.Body = c_form
Send Email Via Outlook Express With VB
Please help me. I am trying to send email using Visual Basic with Outlook Express.
I have used the following code, but only works with Outlook..
Dim App As Object
Dim Itm As Object
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
.Subject = "text"
.To = "email@example.com"
.Body = "Please find attached"
.Attachment = "file name"
Can someone please help me with an example of code for Outlook Express.
Cannot Send Email Using Outlook Component!
I'm working on a VB program which uses a DHTML page to collect a user survey. When the user clicks "Submit" on the survey page, I have code to collect the survey data, create a results file, then email it to a specific recipient.
I'm deploying the application using the VB6 Packaging and Deployment Wizard, and it is linked with the Outlook 9.0 project reference.
This works great, if Outlook is installed on the user's machine. However, if Outlook is not installed, I cannot send the emails, even though the VB-created installer drops a reference to the Outlook object library on the user's PC.
Is this by design, or am I doing something wrong here? The code is posted below.
Thanks in advance
Dim emailAddr As String, myDate As String, subjLine As String
' format subject line
Dim name As String
name = tbName.Value
' grab the name from the web page.
res = SplitName(name)
myDate = Date
subjLine = "Pilot survey results- " & fName & " " & lName & " - " & myDate
emailAddr = "firstname.lastname@example.org"
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(olMailItem)
Set myRecipient = msg.Recipients.Add(emailAddr)
Set myAttachments = msg.Attachments
myAttachments.Add "c:surveydata.results", olByValue, 1, "Survey Results"
msg.Subject = subjLine
msg.body = subjLine
Send Email With OutLook Object
when i send email from VB with outlook object, i get a message like "..A program is trying to send email ... do you agree.."
how can i hide all this messages that outlook pop's ?
How Can I Send An Email In VB Without Outlook Express
Does anyone know how to send an email in VB without calling that outlook express code?
Maybe using some API code, Anyone got any ideas? code? tutorials?
My friend made a program that doest use outlook express in c++ and it was very efficiant, Any idea how to do that in c++ either?
He said he made it with API
How To Auto-send Email Using Outlook Express ??
do any know how to auto-send email using Outlook express ??
here is my problem.
i'm working on a application that will auto-send email to inform the the user when certain condition occur.
is it a possible way to do this ???
please help~!@@ cos this is urgent for me~
Excel: Send Outlook Email With Hyperlink
In Excel Im trying to send an email via Outlook, with a Hyperlink in the body.
Would you be able to complete this code?
Dim objOL As New Outlook.Application
Set objOL = New Outlook.Application
Dim s As Object
Dim objMail As MailItem
Set objMail = objOL.CreateItem(olMailItem)
Application.ScreenUpdating = False
.To = "email@example.com"
.Subject = "Top 25"
.Body = "Hi Everyone," & vbCrLf & _
"Here is a link to the file"
Set objMail = Nothing
Set objOL = Nothing
Im not sure about the syntax on how to fit this code in for the hyperlink.
.Hyperlinks.Add Anchor:=Selection, Address:= "C:FILENAME.xls", TextToDisplay:="CLICK ME"
Send Email To Outlook Distribution List Using VB
i am new here and my first post. i'd like to send email from excel using vbcript. how i code it so that the email are sent to the distribution list in my outlook 2003 contacts. below is the codes for sending mail to indivual email addresses. Any help would be appriciated:
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
.To = "firstname.lastname@example.org"
.Cc = "email@example.com"
.Subject = "Hello World (one more time)..."
.Body = "This is the body of message"
.HTMLBody = "HTML version of message"
.Send 'Let´s go!
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
Edit by Moderator: Welcome. Please use vb tags when posting code, it makes it much easier to read. Tags are [ vb ] and [ /vb ] without the spaces
Send Email Attachment In Outlook Express
I am trying to send an email using outlook express. This part works fine, but I am having problems attaching a log file (or multiple files) to send as well.
The code so far is:
Public Sub Send_Log_Files(sDate As String, sSendfiles As String)
Dim objMsg As Object
Set objMsg = CreateObject("CDO.Message")
objMsg.From = "IRLS Log Files"
objMsg.To = "firstname.lastname@example.org"
objMsg.Subject = "IRLS Log files for " & sDate
objMsg.TextBody = "Please find attached the IRLS log files for " & sDate
.name = "c:log1.log"
Set objMsg = Nothing
I need to be able to send multiple attachments as well.
Thanks in advance!
Send Email Via Outlook With Different Reply Address
In Outlook 2000 you can change the reply email address when sending email - I am trying to create a VB mail forwarding app. Can I change the reply to : email address when sending emails from VB via Outlook/Exchange?
Thanks in advance.
Compiler Error On Send Email With Outlook
I am getting "user-defined type not defined" from the compiler. What and where do I have to do in order for me to get rid of the error on this command :
Dim olApp As Outlook.Application
HOW TO COPY EMAIL IN OUTLOOK FROM DRAFT AND SEND IT
In the topics there is how to send email thru vb.
I wood like to have an custom made email with HTML format sending.
One of two options.
1. How to set the HTML including INSERTING PICTURES inside the message (Not Attachment).
2. How to send Email from the DRAFT Folder of the outlook.
Edited by - isaac789 on 8/5/2004 11:50:40 AM
I Got A Message Every Time I Want To Send An Email With Outlook
I am using outlook object in my code to send an email. but every time it comes to Send command. it gives this message:
A program is trying to automatically send email on your behalf. Do you want to allow this? if this is unexpected it maybe a virus and you should choose no
then I choose yes and then the message is send. how can I remove this message so every time the code wants to send a mail does not have to Ok this message.
thanks for any help in advance.
Send And Receive Email Using Ms-Access And Outlook
Hai, Am Tamilvanan. Am a New to Access.
In my Access Application i need to Send and Receive Email with Attachment. But i have the Problem in Attachment.
I need the attachment function is work as follows. Need one Browse Button. If we click that Browse Button, the file open Dialog Box will be open, then we select a particular file and click open.
Then the selected file path will be stored into a textbox. I know the Common Dialog Control was do this. But when i go to my Access Form Design view and try to put the Common Dialog Control the following Error Message will be raised.
you don't have the license required to use this ActiveX control.
You tried to open a form containing an OLE object or an ActiveX control or you tried to create an ActiveX control. To obtain the appropriate license, contact the company that provides the licensed OLE object or ActiveX control.
Then i try to Register the Control, like comcat.dll, comctl32.dll, comdlg32.dll, COMDLG32.OCX.
The COMDLG32.OCX only was Registered Successfully. But i have the another problem.
The error is:
c:windowssystem32comctl32.dll was loaded, but the DllRegisterServer entry point was not found.
This file can not be registered.
So, still i am stuck. Pls help me. How to put the Common Dialog Control into my Ms-Access Form.
Am using the Code for Send Email as follows:
Private Sub Command20_Click()
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
.BodyFormat = olFormatRichText
.to = Me.Email_Address
.cc = Me.Cc_Address
.bcc = Me.Bcc_Address
.Subject = Me.Mess_Subject
.HTMLBody = Me.mess_text
If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
'.DeleteAfterSubmit = True 'This would let Outlook send th note without storing it in your sent bin
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
and also i need to do the another Task, Receive Email using Ms-Access and Outlook.
The Receive Email will be work as.
On the receiving end, the user receives the email at the Outlook. When they opens the Email, the message box should have a button called "Save to Access".
When this button is pressed, a dialog box should pop up where the user can choose a contact name and a job name and click on SAVE
Here contact name and job name are in the access table fields. We go to select any one contact and any one job for the particular Email. Then the Email details are stored into a Access table.
Am Trying to solve this using many of Forum's. But still i can't. So if u know how to solve the above problems and also how to Receive Email using Ms-Access and Outlook, Please intimate me.
I am waiting for your Reply.
Thanks & Regards
Detecting Outlook Closing And Auto Send Email
Hi all,I have a program that i need to send an email automatically. At the moment i can call up outlook and the user has to literally press 'send' to send the message. Is there a way i can do this automatically or can i send a an alt and 's' keypress, so that it sends striaght away?
Also if the user exits out of the mail message is there a way i detect if the mail message has been closed,i.e if the click the cross?Ive been tring to get round thgis for ages and im not getting anywhere.. Thanks in advance...Davie
On Error GoTo Err_Email
If MAPISession1.NewSession Then
MsgBox "Session already established"
MAPISession1.DownLoadMail = False
MAPISession1.SignOn ' Signon method.
.SessionID = MAPISession1.SessionID
.MsgSubject = "Hello world"
.RecipAddress = "someone@Email.com"
.MsgNoteText = "hello world test"
Outlook 2002 - Choice Of Email Address To Send FROM
I am using Outlook 2002 which has a Microsoft patch that pops up a message box whenever you try to send an Email by using a VB program to control it. I have overcome this by using the Redemption COM.
BUT does anybody know how to choose the Email address I send from ( I have several different Email addresses set up ) whether using Redemption or by straightforward Outlook?
PS IS this forum screwed up? I have twice posted a reply to an earlier thread which has come up and then disappeared ( ie my reply has gone - but when I search against my user name the thread comes up )
Send Email From Within Excel 2000 Using Outlook Express 6
I have a need to mail an Excel spreadsheet from within excel using outlook express 6.0.
I am downloading the data from an As/400, and now need to email it in an excel spreadsheet format using outlook express 6.0.
Can anyone point me in the right direction.
Sending Email Via Outlook (emptying Send Queue)
Hello to you all...
You all know you can send an email in VB6 using code like the following:
Public Sub SendEmail() ' Comments : ' Parameters: ' Modified : ' ' -------------------------------------------------- On Error GoTo PROC_ERR Dim intI As Integer Dim Ol As New Outlook.Application Dim Olmail As MailItem Me.MousePointer = vbHourglass Set Ol = New Outlook.Application Set Olmail = Ol.CreateItem(olMailItem) With Olmail .To = "WhatEver@mail.com" .CC = "email@example.com" .ReadReceiptRequested = True .Subject = "Some subject line" .Body = RichText1.text .Send End With Set Olmail = Nothing Ol.Quit Set Ol = Nothing Me.MousePointer = vbNormalPROC_EXIT: Exit SubPROC_ERR: MsgBox Err.Number & " " & Err.Description Resume NextEnd Sub
This is working without a glitch when Outlook is already open. When it's not, I'm having a little problem. If I send 2 messages using this Sub, the first one will be sent and the second one will remain in the "Send Box" until another message comes in and kick it out or I open Outlook manually and click on "Send/Receive" button. How can I prevent that from happening ?
TIA for any replies that might help...
Outlook Won't Send Email With Out Being Opened... Here Is My Code. PLEASE HELP URGENT >>
What do I have to do tell outlook to send the email with being opened by the user? I am simply trying to send some backup files to an email address when the program is closed.... thanks...
Dim myEmail As Object
Dim myEmailNS As Object
Dim myEmailMessage As Object
Set myEmail = CreateObject("Outlook.Application")
Set myEmailNS = myEmail.GetNamespace("MAPI")
Set myEmailMessage = myEmail.CreateItem(0)
myEmailMessage.To = "firstname.lastname@example.org"
myEmailMessage.Subject = "BACKUP PROGRAM FILES"
myEmailMessage.Body = "ATTACHED"
Set myEmail = Nothing
Set myEmailNS = Nothing
Set myEmailMessage = Nothing
Send Email From VB To Outlook - How To Code - Address A Copy To ...
Hi - here I post a new question
I'm now able to export a dokument out of VB to outlook.
On my VB form there is a field to enter a complete email address "copy to: ......".
Question: What is the RDC command to copy a recipient ?
Report.ExportOptions.MailCcList = "Lupo Mai" does not work - I suppose, the given name(s)
must be stored in "Outlook - Contacs" ???
Who can easely answer this question ?
Thanks - Lupo Mai - Germany
Send A Email (with Optional Attachment) To Everybody In Outlook Address Book
Hi im trying to program an app for my office to simpilize sending emails to everybody in our address book (with optional attachment) to everybody in outlook address book.
Ive looked around for source code but cant find any thing that works.
(Note: I know you can do it in Outlook but not everybody in our office is bight )
Any source code or links would be great.
How To Make Lable Of Address And How To Connect Vb To Outlook For Send Email
i m making a address book software but problem occuring
after searching any person i want want to make a label as a address it save in my database as address,city,pincode
next i want to send email to all person using outlook
when i click on selected email they all come back in out look
how it is possible..........
How To DISABLE/avoid The Outlook Warning Message When I Try To Send Email Via VB?
I wrote a function to send email with attachment. that codes work fines. But there is a annoying problem. everytime i try to run the function to send out email, the outlook popup a windows " A program is tryin to access email address you have stored in out. Do you want to allow this" AND another windows " A program is trying to access email address you have stored in outlook"
How do I resolve this problem? Thanks for help !
the following is the codes
Dim mFolder As outlook.MAPIFolder
Dim mItem As outlook.MailItem
Dim pRecip As Recipient
Dim pAttachments As Attachments
Dim mailHeader As String
Dim mailBody As String
Dim mailFooter As String
Dim mailAddress As String
rptDanAlert.ExportReport rptKeyUnicodeHTML_UTF8, "c:gsn
eportalert", True, False, rptRangeAllPages
mailAddress = "email@example.com"
mailHeader = "The enclosed attachment is Danger Level Alert Report. " & vbCrLf
'to send the report using email
Set mOutlookApp = CreateObject("outlook.Application")
Set mItem = mOutlookApp.CreateItem(olMailItem)
Set pRecip = mItem.Recipients.Add(mailAddress)
Set pAttachments = mItem.Attachments
mItem.Subject = " Stock Level Alert Email"
mItem.Body = mItem.Body & mailHeader
Launch Outlook's Send Msg Dialog, But No Send
Thank you Lafor & HeSaidJoe for helping me out on my last Outlook question. Here's another one for you or any one of you children out there...
Without using an API call (anyone know if we're privy to one?) how can you get the Send-to dialog displayed so the user can have control to edit/send/save/cancel?
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.