StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POWorking with Outlook using MS Access 2003 - VBA
primarykey
Id
18400108
data
AcceptedAnswerId
18404442
AnswerCount
1
ClosedDate
CommentCount
4
CommunityOwnedDate
CreationDate
2013-08-23T10:05:38.053
FavoriteCount
0
LastActivityDate
2013-08-23T13:51:34.037
LastEditDate
2013-08-23T13:38:11.503
LastEditorUserId
1100874
OwnerUserId
1100874
ParentId
0
PostTypeId
1
Score
0
ViewCount
649
LastEditorDisplayName
text
Body
I've made the following program that takes a list of email addresses from a table in MS Access and sends each a test email. Here is the code: <pre><code>'Get data back from field birth date Set fld = rcdSet.Fields("Email Address") 'Subject olMailItem.Subject = "Mailing List Test" 'Loop through the records For i = 0 To intNumRecords 'Recipient/s olMailItem.To = fld.Value 'Body of email olMailItem.Body = strBodyText 'Automatically send the email olMailItem.Send 'Reset email item otherwise it won't work Set olMailItem = olFolder.Items.Add("IPM.Note") 'Move to the next record rcdSet.MoveNext Next </code></pre> And yes I opened a record set but haven't included that code above. So here's my questions: <ol> <li>Is my approach above correct? I had to reset the <code>olMailItem</code> in the loop otherwise it would return a <code>Type Error</code>. Is there a better approach to sending multiple emails?</li> <li>I put in an invalid email to see what happens - it causes another <code>Type Error</code>. Is there anyway to detect the bounce back (the email outlook sends to you informing you that it was a bad address) email and send a message to the <code>Immediate Window</code> (For dev purposes at this point)</li> </ol> Thanks Note - Have added declaration of mail items <pre><code>'Create Outlook object Dim olApp As Outlook.Application 'Namespace Dim olNS As Outlook.NameSpace Dim olFolder As Outlook.MAPIFolder 'Create a reference to the email item you will use to send the email Dim olMailItem As Outlook.MailItem Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI") Set olFolder = olNS.GetDefaultFolder(olFolderInbox) Set olMailItem = olFolder.Items.Add("IPM.Note") </code></pre> If I don't re-set the olMailItem in the for loop an error occurs on the <code>.To</code> part of the program - the aforementioned <code>Type Error</code>
Tags
<vba><ms-access><outlook><access-vba><ms-access-2003>
Title
Working with Outlook using MS Access 2003 - VBA
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USKatana24
UserOwnerUserId
1. USKatana24
plurals
PostLinksPostIdRelatedPostId
1. PL
 singulars
 LinkTypeLinkTypeId
 LTLinked
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.