[AccessD] Outlook Express and generating e-mails to sendspecifying the sender

John Ruff papparuff at attbi.com
Fri Apr 25 16:59:16 CDT 2003


There is one way around the situation, but it's not good.  You must open
your default email account and change the User Name to that which you want
your email recipients to see.

I said it's really clunky and not a good solution, but it is a solution
nevertheless.


John V. Ruff - The Eternal Optimist :-)
Always Looking For Contract Opportunities

Home: 253.588.2139
Cell: 253.307/2947
9306 Farwest Dr SW
Lakewood, WA 98498

"Commit to the Lord whatever you do,
                and your plans will succeed." Proverbs 16:3



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tortise at Paradise
Sent: Friday, April 25, 2003 1:26 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Outlook Express and generating e-mails to
sendspecifying the sender


Thank you John and Mark
I am using Access 97 and OE6.  It is for legitimate (!) "from" email
addresses that are used. It seems from your comments and following the leads
I probably cannot do it. However here is my code if anyone can make any
further suggestions, they'd be welcomed! Private Sub cmdCreateEmail_Click()

   Dim strAddress As String, strSubject As String, strBody As String,
strProduct As String
   'Dim strProduct As Long
   Dim strName As String, strLicense As String
   cmdMessages.SetFocus
   [E-Mail].SetFocus
   strAddress = [E-Mail].Text
   'strSubject = "Break Reminder License"
   strSubject = " License"
   'strProduct = "Break%20Reminder"
   [Combo38].SetFocus
   strProduct = [Combo38].Text
   [Customer].SetFocus
   strName = [Customer].Text
   [License].SetFocus
   strLicense = [License].Text
    If strAddress = "" Then
        MsgBox "Email address"
        Exit Sub
   End If
   If strName = "" Then
        MsgBox "Customer Name"
        Exit Sub
   End If
   If strLicense = "" Then
        MsgBox "License number"
        Exit Sub
   End If
    Dim oshell As Object
   Set oshell = CreateObject("Wscript.Shell")
   oshell.Run """mailto:" & strAddress & _
   "?subject=" & strProduct & strSubject & _
   "&Body=" & "Congratulations%20for%20purchasing%20your%20license%20for%20"
& strProduct &
".%20%20Thank%20you%20indeed%20for%20your%20support.%0D%0A%0D%0A" & _
 
"Please%20consider%20telling%20your%20friends%20and%20colleagues%20about%20"
& strProduct &
".%20%20The%20more%20support%20we%20receive%20the%20more%20we%20will%20devel
op%20software%20for%20your%20benefit.%0D%0A%0D%0A" & _
   "We%20would%20welcome%20any%20Feedback%20where%20you%20heard%20about%20"
& strProduct &
"%20and%20whether%20it%20could%20better%20meet%20your%20needs.%20%20Please%2
0mailto:support at cheqsoft.com?Subject=Feedback%0D%0A%0D%0
A" & _
   "Please%20open%20" & strProduct &
",%20go%20into%20the%20Help%20menu,%20Enter%20License%20Key.%20%20Enter%20th
e%20following%20data%20exactly:%0D%0A%0D%0A" & _
   strName & "%0D%0A" & _
   strLicense & "%0D%0A%0D%0A" & _
   "This%20will%20unlock%20" & strProduct &
"%20for%20your%20unlimited%20use.%0D%0A%0D%0A" & _
"This%20data%20is%20unique%20to%20you.%20%20%20Please%20do%20not%20pass%20it
%20on.%0D%0A%0D%0A" & _
 
"If%20you%20have%20any%20problems%20-%20please%20contact%20us.%0D%0A%0D%0A"
& _

"If%20you%20ever%20need%20to%20reinstall%20the%20program%20and%20your%20curr
ent%20license%20no%20longer%20works%20please%20contact%2
0us%20for%20a%20renewal.%0D%0A%0D%0A" & _
"Please%20consider%20staying%20up%20to%20date%20by%20periodically%20download
ing%20the%20latest%20version%20(free%20to%20you).%0D%0A%
0D%0A" & _
 
"Thank%20you%20again,%20we%20hope%20you%20find%20our%20software%20useful.%0D
%0A%0D%0A%0D%0A%0D%0A" & _

"Kind%20Regards%0D%0ADavid%20Hingston%0D%0Amailto:support at cheqsoft.com?Subje
ct=Feedback%0D%0AChequers%20Software%20Ltd%0D%0Ahttp://c
heqsoft.com/%0D%0AHome%20of%20Break%20Reminder,%20Clipboard%20Express,%20MP3
%20Detective%20and%20TimesOwn%0D%0A%0D%0A"""""

   Exit Sub
EH:
End Sub

Thank you again and
Kind regards,
David Hingston
_________________________________________________________________________
mailto:tortoise at paradise.net.nz
Personal Webpages: http://203.79.82.163/
Automated search engine manager: http://www.engines2go.com/ Home of Break
Reminder, Clipboard Express, MP3 Detective and TimesOwn:
http://www.cheqsoft.com/
----- Original Message -----
From: "Mitsules, Mark" <mitsules_ms at nns.com>
To: <accessd at databaseadvisors.com>
Sent: Saturday, April 26, 2003 12:43 AM
Subject: RE: [AccessD] Outlook Express and generating e-mails to send
specifying the sender


David,


This is the summary from http://support.microsoft.com/?kbid=232309.
SUMMARY
You cannot directly change an item's From field using any programming
methods in Microsoft Exchange or Outlook. If you could, mail could be sent
on someone else's behalf without their permission, therefore the From field
is read-only.  You can use the SentOnBehalfOfName property to set the From
field, provided that you were given delegate permissions to send mail on
someone else's behalf.

HTH,

Mark

-----Original Message-----
From: Tortise at Paradise [mailto:tortise at paradise.net.nz]
Sent: Friday, April 25, 2003 3:54 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Outlook Express and generating e-mails to send specifying
the sender


Hi All
Can anyone tell me if I can specify the sender (when OE has many sending
e-mail addresses set up) when I generate an e-mail in an access database?
(Specifying who to, subject and body is relatively well documented etc but
this?) With many thanks and.... Kind regards, David Hingston
_________________________________________________________________________
mailto:tortoise at paradise.net.nz
Personal Webpages: http://203.79.82.163/
Automated search engine manager: http://www.engines2go.com/ Home of Break
Reminder, Clipboard Express, MP3 Detective and TimesOwn:
http://www.cheqsoft.com/


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list