MartyConnelly
martyconnelly at shaw.ca
Mon Aug 1 14:09:35 CDT 2005
If you are running code as below, it will only run inside the domain of
the ISP
unless you can find an open email server that will allow redirects.
ie. your cable modem is consider inside the domain of the ISP.
Also the SMTP running on your machine may do a quick redirect
local to your machine when checking the output email queue to transmit.
Maybe just in case you bcc: yourself.
Here is another email method. I am not sure of all of the
ramifications of this method. One being your ISP may block.
Any comments?
'The example code is using CDOSYS (CDO for Windows 2000 or XP).
'I dont think I would want to go back to CDONTS for earlier systems
'It does not depend on MAPI or CDO or Outlook
'It does not use your mailbox to send email.
' So you can send mail without a mail program or mail account
' This code builds the message and drops it into a pickup directory,
' and the SMTP service running on the machine
' picks it up and send it out to the internet.
'So why use CDO code instead of Outlook automation or
Application.SendMail in VBA.
' It doesn't matter what Mail program you are using (It uses the
SMTP server).
' It doesn't matter what Office version you are using.
' supposedly you can send an object or file in the body of the mail
(some mail programs can't do this)
' haven't verified this
' You can send any file attachment you like.
' No Outlook Security warning so no need for Redemption
' You probably wont have your mail server full expanded smtp address
'If you go into netscape mail or outlook and look for the smtp name
'It will look like mine, "shawmail" or "shawnews" this dns resolves
'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name
so
'The quickest way to get this actual address without using registry
et al.
'is run cmd and ping "shawmail" to return full qualified smtp
address.
'This code wont run exactly unless you are on cable and signed on in
the Shaw or whatever is your domain, your cable modem is a node in
their domain
Sub SendCDO()
' This example use late binding of CDOSys, you don't have to set a
reference
' You must be online to net when you run the sub
' You must be running WinXP or Win2000
Dim cdoMessage As Object
Dim objCDOMail As Object
Dim strschema As String
On Error GoTo ErrorHandler ' Enable error-handling routine.
'
Set cdoMessage = CreateObject("CDO.Message")
Set objCDOMail = CreateObject("CDO.Configuration")
strschema = "http://schemas.microsoft.com/cdo/configuration/"
objCDOMail.Load -1 ' CDO Source Default
'If you have illegal or wrong smtp address here it will run for 30-
60 seconds and finally give transport error
With objCDOMail.Fields
.Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
.Item(strschema & "smtpserver")
= "shawmail.cg.shawcable.net" ' "Your SMTP server address here"
.Item(strschema & "smtpserverport") = 25 'specify port number
.Update
End With
With cdoMessage
Set .Configuration = objCDOMail
.to = "macon at g..."
.From = "Winnie The Pooh <macon at s...>"
.CC = ""
.BCC = ""
.Subject = "This is another test from marty"
.TextBody = "This is the text in the body just cdo defaults"
.AddAttachment "C:\temp2\rptSampleCount.rtf"
.AddAttachment "C:\temp2\frontimage.jpeg"
.send
End With
Set cdoMessage = Nothing
Set objCDOMail = Nothing
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
Debug.Print Err.Number & "-" & Err.Description
Set cdoMessage = Nothing
Set objCDOMail = Nothing
Exit Sub
End Sub
DWUTKA at marlow.com wrote:
>Ok. Didn't catch that the first time. Is mail.colbyconsulting.com 'local'?
>I mean, is it residing where you are at, or is it the mail server of your
>hosting company?
>
>Drew
>
>-----Original Message-----
>From: John W. Colby [mailto:jwcolby at colbyconsulting.com]
>Sent: Sunday, July 31, 2005 12:31 AM
>To: 'Access Developers discussion and problem solving'
>Subject: RE: [AccessD] OT: Error 550
>
>
>Yea, but it is more than that. If I just send a test message to myself, it
>just goes. A few minutes later it comes back in just fine. If I send to
>one of these other places, it INSTANTLY gets this 550 error in my inbox. If
>I then change from using mail.colbyconsulting.com as the smtp server address
>to the "local" smtp address (RR address) it goes out just fine. So it is
>not a case of "we don't like this destination". It is just forcing me to
>send through their mail server, but NOT when sending to my own mail server.
>Truly odd don't you think?
>
>John W. Colby
>www.ColbyConsulting.com
>
>Contribute your unused CPU cycles to a good cause:
>http://folding.stanford.edu/
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
>Sent: Sunday, July 31, 2005 12:51 AM
>To: accessd at databaseadvisors.com
>Subject: RE: [AccessD] OT: Error 550
>
>
>It depends on how they have THEIR mail server setup. With the onslaught of
>spam, a lot of mail servers get down right finicky on what it will let
>through. I know my personal domain is/was blocked on several mail servers
>because the IP's in my domain were listed as dynamic, instead of static,
>which they WERE static. If the domain of the email you are sending 'from'
>doesn't match the IP's sending the mail, that's another big 'block'. Then
>there are several 'black lists' on the web, which store domains considered
>to be spam.
>
>Honestly, it's an issue that is a sore point for me (both spam, and the
>methods used to block).
>
>Drew
>
>-----Original Message-----
>From: John W. Colby [mailto:jwcolby at colbyconsulting.com]
>Sent: Saturday, July 30, 2005 11:43 PM
>To: 'Access Developers discussion and problem solving'; Tech - Database
>Advisors Inc.
>Subject: [AccessD] OT: Error 550
>
>
>Does anyone understand what is going on with email sent from inside of
>specific networks. Here's the situation...
>
>I get the following error (as an example):
>
>Your message did not reach some or all of the intended recipients.
>
> Subject: RE: Logging in to George
> Sent: 7/29/2005 1:00 PM
>
>The following recipient(s) could not be reached:
>
> 'Jason Ralph' on 7/29/2005 1:00 PM
> 550 not local host invohealthcare.com, not a gateway
>
>>From my sister-in-law's house when I try to send to this specific
>
>
>>address,
>>
>>
>using SMPT server mail.colbyconsulting.com. If I send mail to myself I do
>not get this problem (to jwcolby at colbyconsulting.com). I have seen this
>exact same symptom if sending from my client. It never happened before from
>my sister-in-law's but is now.
>
>It turns out that if I look at her email smtp server
>(mail.rochester.rr.com), and modify my smtp server to match it works. It
>appears that this is the classic port 25 blocking thing. It is a royal PITA
>to have to find out what the correct smtp server is, modify Outlook, and
>send to that whenever I move from place to place.
>
>At my previous host for MY WEB SITE, they had me set up to send on a
>different port (26 maybe?) and then it worked regardless of where I was
>since only port 25 was being blocked and my web email server
>(mail.colbyconsulting.com) was expecting traffic on a different port.
>
>The odd part here is that I can send to myself (always), i.e.
>jwcolby at colbyconsulting.com. That must go on port 25 as well, so why does
>that go just fine, but not the other message?
>
>John W. Colby
>www.ColbyConsulting.com
>
>Contribute your unused CPU cycles to a good cause:
>http://folding.stanford.edu/
>
>
>
>
--
Marty Connelly
Victoria, B.C.
Canada