Hi, Access 2003. I have a DB that contains deadlines data. I have the DB set up to create a report for each person that has deadline within a certain time frame. I need to automate the DB so an email is sent when a report exists but an email is not sent if there is no report for people. I have CDO code that works great except for the do not send part. The following is that part of the code. Any help would be appreciated. Thanks! - With iMsg
-
Set .Configuration = iConf
-
.To = "bjo@propeople.org"
-
.CC = "bjo@propeople.org"
-
.From = "bjo@propeople.org"
-
.Subject = "Please read: test CDOSYS message with Attachment3"
-
.HTMLBody = strHTML
-
-
'.Err.Clear
-
On Error Resume Next
-
Set Object = Expression
-
-
-
-
If Not IsMissing("G:\Accounting\Development\rptMiller.txt") Then
-
Set Attach = .AddAttachment("G:\Accounting\Development\rptMiller.txt")
-
End If
-
-
-
If Attach = 0 Then
-
Cancel = True
-
Else: .Send
-
End If
-
11 11311
I guess I'm not understanding where the problem lies. You say you have the database set up to only generate a report when there exists a deadline, then why do you want to not fire the code when there is no report? How are you calling the code to begin with?
Regards,
Scott
I guess I'm not understanding where the problem lies. You say you have the database set up to only generate a report when there exists a deadline, then why do you want to not fire the code when there is no report? How are you calling the code to begin with?
Regards,
Scott
The DB runs a query for each of the program folks that could or could not have deadlines. If they have a deadline, a report is created. If they don't a report is not generated. My code is currently saying create and email and send the attachment to that person then it calls code for the next person and so on. If one of the people (I call about 15 subs) does not have a report to attach, I do not want an email going out to them. Hope that clarifies things. I can do it when not using CDO but want to use CDO so I don't get the Outlook warnings.
Hope you can help out. I don't get why that one part of the code that should stop the sending doesn't work. - If Attach = 0 Then
-
Cancel = True
-
Else: .Send
-
End If
Maybe you can see something I'm missing.
Throw in a
in about line 18, just for grins and chuckles. I'm interested to see what value you will get if there is no report to attach.
You haven't included the section of code where you declare the variables used here, but I'm suspecting that you should be checking for a null value as well as 0 for your variable Attach. Something like - If Attach = 0 Or IsNull(Attach) Then...
Regards,
Scott
Throw in a
in about line 18, just for grins and chuckles. I'm interested to see what value you will get if there is no report to attach.
You haven't included the section of code where you declare the variables used here, but I'm suspecting that you should be checking for a null value as well as 0 for your variable Attach. Something like - If Attach = 0 Or IsNull(Attach) Then...
Regards,
Scott
Hi,
I added the Debug.Print and didn't get any response. I also tried - If Attach = 0 Or IsNull(Attach) Then
-
Cancel = True
-
Else: .Send
-
End If
and it doesn't work weither or not there is an attachment.
Here are my variables:
Dim iConf
Dim Flds
Dim strHTML
Dim Attach
I appreciate your help!
The lack of apparent response means that you are passing a null value into the Attach variable. (You're immediate window should show at the bottom of the vba editor window... If passed a null value, Debug.Print has nothing to print to the immediate window, and so all you will likely see is the cursor moving one line...) Since it's a null value, you should be able to delete the Attach = 0 part, leaving only the IsNull(Attach) part.
Why not try re-writing this to something like the following: -
If Not IsNull(Attach) Then
-
.Send
-
Else
-
End If
Regards,
Scott
The lack of apparent response means that you are passing a null value into the Attach variable. (You're immediate window should show at the bottom of the vba editor window... If passed a null value, Debug.Print has nothing to print to the immediate window, and so all you will likely see is the cursor moving one line...) Since it's a null value, you should be able to delete the Attach = 0 part, leaving only the IsNull(Attach) part.
Why not try re-writing this to something like the following: -
If Not IsNull(Attach) Then
-
.Send
-
Else
-
End If
Regards,
Scott
Thanks again, Scott, but it sends whether or not there is an attachment. Any other ideas?
Thanks again, Scott, but it sends whether or not there is an attachment. Any other ideas?
Please post the whole Subroutine, starting from top ending at bottom. When you paste it into this reply window, wrap it in code tags by selecting all the code text, clicking the # button, and then manually edit the first code tag to look just like this: [code=vb]
Regards,
Scott
Sub CDOTestFive()
Here it is Scott. Once again, I really appreciate your help. -
Dim iConf
-
Dim Flds
-
Dim strHTML
-
Dim Attach
-
-
Const cdoSendUsingPort = 2
-
-
Set iMsg = CreateObject("CDO.Message")
-
Set iConf = CreateObject("CDO.Configuration")
-
-
Set Flds = iConf.Fields
-
-
With Flds
-
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
-
-
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "propexbe.propeople.org"
-
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
-
.Update
-
End With
-
-
strHTML = "<HTML>"
-
strHTML = strHTML & "<HEAD>"
-
strHTML = strHTML & "<BODY>"
-
strHTML = strHTML & "<b><p>Please let me know if you got an attachment and if you could open it. Thanks.</p></b></br>"
-
strHTML = strHTML & "<b><p>Also please let me know if the text of the message is bold. Thanks. </b></p>"
-
strHTML = strHTML & "</BODY>"
-
strHTML = strHTML & "</HTML>"
-
-
-
With iMsg
-
Set .Configuration = iConf
-
.To = "jkt@propeople.org"
-
.CC = "wld@propeople.org"
-
.From = "bjo@propeople.org"
-
.Subject = "Please read: test CDO message with Attachment11"
-
.HTMLBody = strHTML
-
-
-
On Error Resume Next
-
Set Object = Expression
-
-
-
If Not IsMissing("G:\Accounting\Development\rptMiller.txt") Then
-
Set Attach = .AddAttachment("G:\Accounting\Development\rptMiller.txt")
-
End If
-
-
-
If Not IsNull (Attach) Then
-
.Send
-
End If
-
-
End With
-
End If
-
-
-
Set iMsg = Nothing
-
Set iConf = Nothing
-
Set Flds = Nothing
-
-
MsgBox "Mail Sent!"
-
-
End Sub
- Dim iConf
-
Dim Flds
-
Dim strHTML
-
Dim Attach
-
-
Const cdoSendUsingPort = 2
-
-
Set iMsg = CreateObject("CDO.Message")
-
Set iConf = CreateObject("CDO.Configuration")
-
-
Set Flds = iConf.Fields
-
-
With Flds
-
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
-
-
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "propexbe.propeople.org"
-
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
-
.Update
-
End With
-
-
strHTML = "<HTML>"
-
strHTML = strHTML & "<HEAD>"
-
strHTML = strHTML & "<BODY>"
-
strHTML = strHTML & "<b><p>Please let me know if you got an attachment and if you could open it. Thanks.</p></b></br>"
-
strHTML = strHTML & "<b><p>Also please let me know if the text of the message is bold. Thanks. </b></p>"
-
strHTML = strHTML & "</BODY>"
-
strHTML = strHTML & "</HTML>"
-
-
-
With iMsg
-
Set .Configuration = iConf
-
.To = "jkt@propeople.org"
-
.CC = "wld@propeople.org"
-
.From = "bjo@propeople.org"
-
.Subject = "Please read: test CDO message with Attachment11"
-
.HTMLBody = strHTML
-
-
-
On Error Resume Next
-
Set Object = Expression
-
-
-
If Not IsMissing("G:\Accounting\Development\rptMiller.txt") Then
-
Set Attach = .AddAttachment("G:\Accounting\Development\rptMiller.txt")
-
End If
-
-
-
If Not IsNull (Attach) Then
-
.Send
-
End If
-
-
End With
-
End If
-
-
-
Set iMsg = Nothing
-
Set iConf = Nothing
-
Set Flds = Nothing
-
-
MsgBox "Mail Sent!"
-
-
End Sub
A couple of things that occur to me also here.
1: You should probably rename the Attach variable to something like MyAttach, since I think Attach is a reserved word.
2: just making sure that your references are set correctly: if you go into Tools>Reference s which CDO library do you have checked? Should be Microsoft CDO for Windows 2000 Library. (I'm almost certain that you'll have this reference, since I don't think the earlier versions of CDO supported HTML messages, but please check anyway... You never know :-).
3: How are you determining who gets the attachment and who does not? It doesn't appear to me in this section of code. Somewhere you will have to pass the email addresses of the people who are to receive the email+attachmen t to this function...
4. Will it mess up the flow of your function if you put the .Send command just after your Set Attach = .AddAttachment "..." line?
Regards,
Scott
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: mimi |
last post by:
Hi,
I've been searching all the posts and articles but couldn't find any example
on how to send attachments with pop3 using C#. Does anyone have one or know
how? Thanks
|
by: Luiz Vianna |
last post by:
Guys,
I have a Windows 2003 running Exchange 2003.
On this machine I'm trying to run an ASP.NET webform to send an e-mail.
The codebehing my ASPX is like this:
Dim NewMail As New CDO.Message
NewMail.From = From
NewMail.To = Msgto
|
by: Sophie |
last post by:
Hi, I'm not very good in english so excuse me if I have difficulty to
explain my problem.
I want to send a mail with VB.net with this code :
Option Strict On
Public Class Form1
Inherits System.Windows.Forms.Form
|
by: Landley |
last post by:
Hello,
Is there a way of creating an email, attaching a file and sending using the
client's default mail client?
I am looking for a none email client specific solution that does not involve
specifying parameters such as mail servers etc.
Cheers,
|
by: Husam |
last post by:
Hi EveryBody:
I made windows application project as e-mail sender. This project consist of
13 textbox and one label and one button. I add {system.web.dll} as refrance
to this project to help me using some mail functions after I got hint from
Mr. Paul Remblance to do so.
The code is like the follwoing:
Imports System.Web.Mail
| |
by: Robert Dufour |
last post by:
I tried using (vs2003 Vb.Net)
Public Sub SendEmail( _
ByVal Recipient As String, _
ByVal Sender As String, _
ByVal Subject As String, _
ByVal Message As String, _
|
by: oyster |
last post by:
I find that the existing email moudle is some hard for me to
understand, especially the part of how to set the CC, BCC and attach
the files. Is there any more easy one like this p-code?
import easyemail
smtpserver=easyemail.server('something')
smtpserver.login('usr@gmail.com', pwd)
newletter=smtpsever.letter(smtpserver)
newletter.sendto=...
|
by: Chitu03 |
last post by:
Hi
I am already send a mail using Php with some attachement into it. My Problem is the attachement file is in my Database(mysql). I don't know how can i get from database and then add to my mail.
<?php function send_mail($emailaddress, $fromaddress, $emailsubject, $body, $ccaddress, $attachments=false) {
$eol="\r\n";
...
|
by: maxxxxel |
last post by:
Hi
Can anyone help me with some asp code , I changed the code to use CDO.message instead of the old cdont.sys to send mail from a ASP webpage which works fine.
Our problem is that when we send mail externally to a internet email site like Gmail the PDF is sent but is corrupted because CDOSYS ends up using binary encoding
rather than Base64...
|
by: sxwend |
last post by:
I am trying to use the following post results (http://www.thescripts.com/forum/thread189759.html) and add another requirement. I need to send the results to just the email addresses that the query specifies for each record... Essentially this is a make shift Ordering Tool and I want to be able to notify the receiver of the order and its specifics....
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language...
| |
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it. ...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| |
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |