Anthony's VBA Forum Index Anthony's VBA Forum
Where the knowledge is shared
Menu
 Anthony's VBA Forum IndexHome Page
 Anthony's VBA Forum IndexForum Index
FAQFAQ
MemberlistMemberlist
UsergroupsUsergroups
RegisterRegister
ProfileProfile
Log in to check your private messagesMessages
Log inLogin/Out

Quick Search

Advanced Search

Links
Consulting
Products

Who's Online
[ Administrator ]
[ Moderator ]


VBA and Email

 
Post new topic   Reply to topic     Anthony's VBA Forum Index -> General Excel VBA
View previous topic :: View next topic  
Author Message
Ironman



Joined: 19 Nov 2008
Posts: 1

PostPosted: Wed Nov 19, 2008 1:34 pm    Post subject: VBA and Email Reply with quote

Hello - This is my first post! Anyway, I've got a bit of VBA code that will send an email with an attachement to a contact list or distrubtion list. It works very well. However, there's always one of these aren't there, there are times when I'm off work and someone else needs to send out these emails. In an effort to have this person use the same VBA code I shared my Outlook Contact List with this person.

When the VBA code is run by this replacement person, it seems to work fine, meaning there are no errors. But...the email is never sent. I don't believe it goes to the Outbox either. So, I was hoping someone might have some thoughts/suggestions on using VBA code when the To: is a shared outlook contact list.

Below is a portion of the VBA code I use today:

On Error Resume Next
With OutMail
.To = "Daily NH" <<<< Here is the SHARED OUTLOOK CONTACT
.CC = ""
.BCC = ""
.Subject = "New Hire, Rehire, Term and Transfer Reports " & Format(Now(), "mm-dd-yy")
If DayNum = 2 Then
.Body = "Hello everyone. Happy Monday to you all! Attached are today's reports. Let me know if you have any questions." & vbNewLine & _
"Have a great day - Stay warm!!" & vbCrLf & vbCrLf & ""
ElseIf DayNum = 3 Then
.Body = "Good morning, Attached are Tuesday's reports, Have a good day!" & vbcrbl & vbCrLf & ""
ElseIf DayNum = 4 Then
.Body = "Hello all - Attached are Wednesday's reports, Have a good day!" & vbcrbl & vbCrLf & ""
ElseIf DayNum = 5 Then
.Body = "Good morning to you all, I've Attached Thursday's reports for you review, Have a good day!" & vbcrbl & vbCrLf & ""
ElseIf DayNum = 6 Then
.Body = "It's Friday! Attached you'll find todays reports. Have a good day and enjoy your weekend!" & vbcrbl & vbCrLf & ""
End If

'Attaching files
.Attachments.Add ("T:\HR Compensation\HRIS Files\Daily.Wkly NH Term Trans Rpt\2008\" & MMM & "\" & Format(Now(), "mm-dd-yy") & " NH, Rehire, Term" & ".pdf")
.Attachments.Add ("T:\HR Compensation\HRIS Files\Daily.Wkly NH Term Trans Rpt\2008\" & MMM & "\" & Format(Now(), "mm-dd-yy") & " Transfers" & ".pdf")
If Err.Number <> 0 Then
' error attaching detected
.Body = "Good morning...!" & vbCrLf & vbCrLf & _
"There is no new data to report, therefore there are no reports to send today." & _
vbCrLf & vbCrLf & "Have a great day!!" & vbCrLf & vbCrLf & ""
End If
.send 'or use .Display
End With
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic     Anthony's VBA Forum Index -> General Excel VBA All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2002 phpBB Group