How is it possible, that when I create a new mail and want to find the mail adress that the search not searching partial strings (Contains) than for begin of the mail-adress (StartsWith())???
This is not possible! Why I cannot search for mail adresses by partial string?
Stefan
Try using the CreateRecipient method of the Namespace class:
Sub ResolveName()
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim CalendarFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("eugene")
myRecipient.Resolve
If myRecipient.Resolved Then
Call ShowCalendar(myNamespace, myRecipient)
End If
End Sub
Sub ShowCalendar(myNamespace, myRecipient)
Dim CalendarFolder As Folder
Set CalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
CalendarFolder.Display
End Sub
The method can also be used to verify a given name against an address book.
Related
I've been looking at trying to get my Access database to automatically send an email to notify me of an addition once a user has entered a new record through a form. I've tried using:
Private Sub Form_AfterInsert()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Body of the email"
oMail.Subject = "Test Subject"
oMail.To = "Someone#somewhere.com"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing
End Sub
But it just gives me the error: Compile error: User-defined type not defined.
I need to send a very simple email with only text to a few recipients, but I'm getting an error.
I don't have an SMTP server to send emails through, but I do have an outlook and I'm logged in through the desktop app.
Here's the script so far:
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.Display
objMail.to = "recipient#whatever.com"
objMail.Subject = "Test"
objMail.Body = "test"
objMail.Send
objOutlook.Quit
Set objMail = Nothing
Set objOutlook = Nothing
When the script is run, WSH gives the error
line: 10
char: 1
error: Operation Aborted
source: (null)
This is the objMail.Send line.
And my outlook pops up with the proper recipient/subject/body, but it doesn't send.
I can't find anything related to this issue or a work around besides using an SMTP server which as far as I know I can't do.
I have a function defined and in daily use which accepts the various items for creating and sending the email. Remember if you have to create your Outlook instance, you need to log on with the appropriate mail profile in order to send anything. The profile we use here is just called "Outlook". Check what yours is called and include the Namespace stuff I have in mine.
Dim sComputer : sComputer = "." ' selects local machine
Dim oWMIService : Set oWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Dim colItems : Set colItems = oWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'outlook.exe'")
Dim oOutlook : Set oOutlook = CreateObject("Outlook.Application")
Dim oNamespace : Set oNamespace = oOutlook.GetNamespace("MAPI")
If colItems.Count = 0 Then
LOG_Write "Outlook isn't open, logging onto it..."
oNamespace.Logon "Outlook",,False,True ' name of Outlook profile
bOpenedOutlook = True
End If
Dim oFolder : Set oFolder = oNamespace.GetDefaultFolder(olFolderInbox)
oFolder.Display ' Make Outlook visible
Here is basic vbscript simple email
' For Example...
Email_List = "0m3r#Email.com;"
Set App = CreateObject("Outlook.Application")
Set Mail = App.CreateItem(0)
With Mail
.To = Email_List
.CC = ""
.BCC = ""
.Subject = "Hello World"
.HTMLBody = "Bla Bla!!!"
'.Body = strbody
'You can add a file like this
' .Attachments.Add (FilePath)
'use .Send (to send) or .Display (to display the email and edit before sending)
.Display
.send
End With
Set Mail = Nothing
Set App = Nothing
Save is as name.vbs
in a VB6 project, this code worked for sending an email via Outlook 2013 using the Microsoft Office Outlook 15.0 Object Library:
Private Sub Command1_Click()
Dim objOutlook As Outlook.Application
Set objOutlook = CreateObject("Outlook.Application")
Dim mail As Outlook.MailItem
Set mail = objOutlook.CreateItem(olMailItem)
mail.To = txt_Recipient
mail.Subject = txt_Subject
mail.body = txt_Inhalt.Text
mail.Send
Now when I tried to transfer the same code into a class module, it kept throwing an error 429 that it couldn't create the object in the third line. Any idea why it doesn't work in a class module while it does when being directly coded in the Command_Click event?
Code in the class:
Public objOutlook As outlook.Application
Public Sub MailSenden(ByVal empfaenger As String, ByVal betreff As String, ByVal inhalt As String)
Set objOutlook = CreateObject("Outlook.Application")
Dim mail As outlook.MailItem
Set mail = objOutlook.CreateItem(olMailItem)
mail.To = empfaenger
mail.Subject = betreff
mail.body = inhalt
mail.Send
End Sub
Thanks for any help you can give me!
Colin
I'm curious why you're using late binding when you have the Outlook 15.0 type library handy (and referenced in your project). Have you tried:
Set objOutlook = New Outlook.Application
How to send a mail from MS Access Form. ?
Assume I have MS Access Application with a DashBoard form.
I have send mails to certain mail address
like sending a notification mail on clicking "send notification button"
How to do this with codebuilder in MS access
I found that you can send mail using this code snippet
Private Sub send_mail()
Dim olApp As Object
Dim objMail As Object
On Error Resume Next 'Keep going if there is an error
Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open
If Err Then 'Outlook is not open
Set olApp = CreateObject("Outlook.Application") 'Create a new instance
End If
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)
With objMail
'Set body format to HTML
.BodyFormat = olFormatHTML
.To = "abc#yourmailaddress.com"
.Cc ="ccaddress#yourmailaddress.com"
.Subject = "Subject LIne"
.HTMLBody = "<htmltags>Body Content</htmltags>"
.send
End With
MsgBox "Operation completed successfully"
End Sub
Source : Thread from Access Programmer site
I found some code that worked for email based on code that I was using to open a browser from a contact's home page, worked just fine and was a lot easier for me to understand. For opening a web page, delete the '"mailto:" & '.
Private Sub cmdEmailContact_Click()
Dim sWebPath As String
Dim sFullLinkPath As String
If IsNull(Me.ContactEmail) Then
MsgBox ("Can't create email: no address listed")
Exit Sub
End If
sWebPath = "mailto:" & Me.ContactEmail
sFullLinkPath = sWebPath
Application.FollowHyperlink sFullLinkPath
End Sub
I am trying to create an App in Microsoft Access 2007. How can I silently send an email out using Outlook 2007 upon a specific event without any user interaction. How should I approach this. If you can provide some VBA some it would be extremely nice, but if not, could you guide me in how to accomplish this?
I was able to solve my problem with the following code:
Public Sub SendEmail()
Email_Bcc = "email#domain.com"
Email_Body = "Email body!!!!"
Email_Subject = "Email Subject"
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub
First declare a couple variables in the event that you want to send the email, or in a function you'd like the event to call.
Public Started As Boolean
Public oApp As Outlook.Application
Public oItem As Outlook.MailItem
Next, open or get Outlook if it's running.
On Error Resume Next
'Get Outlook if it's running
Set oApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
'Outlook wasn't running, start it from code
Set oApp = CreateObject("Outlook.Application")
Started = True
End If
Now, do what you've got to do with your email.
Set oItem = oApp.CreateItem(olMailItem)
With oItem
.To = "email#email.com"
.Subject = "Your email, sirrah."
.Body = "Please enjoy this complimentary email."
'Send the email
.Send
End With
Finally, close outlook if it wasn't running before and clean up.
Set oItem = Nothing
If Started Then
oApp.Quit
End If
You can do this "code-free" by using a macro and the "SendObject" action. Be sure to complete all the necessary arguments To, Subject, Message Text, and then set the Edit Message argument to 'No'.
You can then attach this macro to any event you wish, such as the OnClick event of a button.