Sounds like a good plan. When you think about it, it is kind of scary that someone could send an email with you as the sender.
I demonstrated it to a colleague of mine. I sent an email to myself from her and then forwarded it back to her.
It's an uneasy feeling that someone could email something on your behalf. Kind of like identify theft of a sort...
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Friday, August 07, 2015 7:25 AM
To: MS Access Pros List
Subject: RE: [MS_AccessPros] Verify email was sent via MSAccess 2013 to Outlook 2013/Email sent from different account (not default)
I would just BCC myself.
-Steve Conklin
________________________________
> To: MS_Access_Professionals@yahoogroups.com
> From: MS_Access_Professionals@yahoogroups.com
> Date: Fri, 7 Aug 2015 15:28:34 +0200
> Subject: Re: [MS_AccessPros] Verify email was sent via MSAccess 2013
> to Outlook 2013/Email sent from different account (not default)
>
>
>
> Norbert-
>
> Surely there's a way to examine the Sent Items folder if you have
> automation set up. You might need to check the folder, then if not
> there, go into a 2 second wait loop, then check again. Give up after a
> reasonable time like 10 seconds.
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications SQL Queries for Mere Mortals
> http://www.viescas.com/ (Paris, France)
>
>
>
>
> On Aug 7, 2015, at 3:07 PM,
> drnorbert@msn.com<mailto:drnorbert@msn.com>
> [MS_Access_Professionals]
> <MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professional
> s@yahoogroups.com>>
> wrote:
>
> Bill,
> I am looking now to switch to vbMAPI.
>
> The following is an update of the code:
>
> Private Sub cmdEmail1_Click()
> Dim OutApp As Outlook.Application
> Dim OutMail As Outlook.MailItem
> Dim strbody As String
> Dim strPDF As String
>
> Set OutApp = CreateObject("Outlook.Application")
> Set OutMail = OutApp.CreateItem(olMailItem)
>
> strbody = "Dear Aaron," & vbNewLine & "Enclosed is the requested information"
> strPDF = Me.txtFile
> On Error Resume Next
> With OutMail
> .To = "drnorbert@msn.com<mailto:drnorbert@msn.com>"
> .CC = ""
> .BCC = ""
> .Subject = "Important..."
> .Body = strbody
> .Recipients.ResolveAll
> '.SendUsingAccount =
> OutApp.Session.Accounts.Item(2) '2nd email .SentOnBehalfOfName =
> "drChiche@hotmail.com<mailto:drChiche@hotmail.com>" 'Jim Wagner
> .Attachments.Add strPDF 'attachments .Send End With On Error GoTo 0
>
> Set OutMail = Nothing
> Set OutApp = Nothing
> End Sub
>
> I am still searching for a flag from Oulook 2013 to Access 2013 which
> will indicate that the email was sent (or at least is in the Outlook
> Sent Items Folder and not in the Outbox Folder)
>
>
>
------------------------------------
------------------------------------
------------------------------------
Yahoo Groups Links
This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.
Posted by: Liz Ravenwood <Liz_Ravenwood@beaerospace.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (12) |
Tidak ada komentar:
Posting Komentar