Automating Outlook 2007 problem with sending mail

  • Thread starter Thread starter Norm
  • Start date Start date
Status
Not open for further replies.
N

Norm

Hi,

I hope this is the right newsgroup to ask this in. I have an application

written in Visual Basic 6 SP6 that automates Outlook. It has worked fine

until I upgraded to Outlook 2007 and for some reason it will not resolve the

names correctly. So I am assuming that something has changed and the code as

written will no longer work. The code I am using is pasted below and hope

that someone can spot what needs to be changed for Outlook 2007.

Thanks,

Norm

Do

bCheck = False

sPath = CStr(i)

MyReport = sGetINI(AppPath & "\ProgramIni\Supervisor Logs.ini",

"Path", sPath, Default)

If MyReport = "" Or MyReport = "0" Then Exit Do

oMail.Recipients.ADD MyReport

bCheck = oMail.Recipients.ResolveAll-----This line is the problem,

bCheck will remain false even on a good address.

If Not bCheck Then

AllReports2 = MyPath2 & MyReport

MyPath2 = AllReports2 & ";"

GoTo Skip1

End If

AllReports = MyPath & MyReport

MyPath = AllReports & ";"

Skip1:

Set objMailitem = Nothing

i = (i + 1)

Loop
 
Well the code is working now. Not sure what happened, but it started working

this evening, without changing anything. Guess I don't need any help at the

moment. :-)

Thanks anyway,

Norm

"Norm" <NormF4@newsgroups.nospam> wrote in message

news:F0DB9F21-4B05-4885-801C-0B79BC921168@microsoft.com...
> Hi,

> I hope this is the right newsgroup to ask this in. I have an application
> written in Visual Basic 6 SP6 that automates Outlook. It has worked fine
> until I upgraded to Outlook 2007 and for some reason it will not resolve
> the names correctly. So I am assuming that something has changed and the
> code as written will no longer work. The code I am using is pasted below
> and hope that someone can spot what needs to be changed for Outlook 2007.

> Thanks,
> Norm

> Do

> bCheck = False

> sPath = CStr(i)

> MyReport = sGetINI(AppPath & "\ProgramIni\Supervisor Logs.ini",
> "Path", sPath, Default)

> If MyReport = "" Or MyReport = "0" Then Exit Do

> oMail.Recipients.ADD MyReport

> bCheck = oMail.Recipients.ResolveAll-----This line is the problem,
> bCheck will remain false even on a good address.

> If Not bCheck Then

> AllReports2 = MyPath2 & MyReport

> MyPath2 = AllReports2 & ";"

> GoTo Skip1

> End If

> AllReports = MyPath & MyReport

> MyPath = AllReports & ";"

> Skip1:

> Set objMailitem = Nothing

> i = (i + 1)

> Loop

>
 
Status
Not open for further replies.
< skip one ocurrence appointment from recurring appointment series | How to find an email window. >
Similar threads
Thread starter Title Forum Replies Date
S Outlook 2007: automating form with macro Outlook VBA and Custom Forms 2
I Automating message move between folders Outlook VBA and Custom Forms 0
R Automating from excel into shared Calendars Using Outlook 1
C Automating subject line Using Outlook 1
L automating a BCC on every email Using Outlook 1
T Automating Exporting to pst file Outlook VBA and Custom Forms 3
J Automating Word from script Outlook VBA and Custom Forms 8
S Automating the selection of email accounts upon adding email addre Outlook VBA and Custom Forms 1
L new outlook contacts searching Using Outlook 2
R Outlook 2010 Outlook 2010 migration question Using Outlook 2
W New Outlook PEOPLE blank Using Outlook 7
C New Outlook issues with Gmail, particularly labels/folders Using Outlook 4
E What is the next workaround for macro in New Outlook 1.2025.1111.100 Outlook VBA and Custom Forms 3
E Need to digitally sign macro but VBA\Outlook crash Outlook VBA and Custom Forms 4
P Outlook 2003 no longer opens "without" Folder List Showing in Navigation Pane Using Outlook 2
Hornblower409 Outlook 2010 - Never ending update Using Outlook 0
V Outlook created new profile? Using Outlook 1
J Outlook inbox question Using Outlook 4
T How to Add AT&T Contacts to Outlook 365 Using Outlook 7
F Outlook 2021 outlook on iPhone Using Outlook 1
F Outlook 2021 Outlook on iPhone asks for password Using Outlook 0
P ics calendar entries suddenly open up new Outlook Using Outlook 3
P Outlook "forgets" password until system rebooted Using Outlook 2
N Why does Outlook keeping adding to the email address I have in my notes portion of a contact? Using Outlook 2
M Anyone integrated AI website builders with Outlook for automated client communications? Using Outlook 1
V Gmail in Outlook Using Outlook 2
T Where has the Copilot icon gone in my Outlook desktop client? Using Outlook 6
P New way by Microsoft to get people to use the new Outlook Using Outlook 4
C How to keep emails in account in Outlook after closing the IMAP account Using Outlook 1
cymumtaz IMAP calendars in New Outlook Using Outlook 5
T Constantly Have To Log In To Outlook On The Web Using Outlook.com accounts in Outlook 2
T Cannot Find Outlook Noted On Android Using Outlook 4
O Outlook 2024 not showing that messages are replied to or forwarded Using Outlook 3
C Outlook 365 send/receive takes FOREVER - as in 40 minutes Using Outlook 7
I Outlook 2024 LTSC syncing with iCloud calendar - can only make appt. in iCloud Using Outlook 2
Kika Melo Outlook ribbon customisations do not 'stick' Using Outlook 12
J IMAP Folders Confusion in Windows Classic Outlook Using Outlook 1
A Missing Sent Emails in New Outlook Using Outlook 18
S Missing categories in Outlook calendar Using Outlook 10
P Windows 11 tries to open New Outlook when the user clicks on the mail icon on a news article Using Outlook 2
C I don't understand Outlook or Microsoft, anymore Using Outlook 12
P My Feedback to Microsoft and their response; also New Outlook roadmap Using Outlook 0
A New Outlook - Cannot drag IMAP emails to Task List in MyDay Using Outlook 1
L Android Outlook Doesn't Update PC Notification Changes Using Outlook 0
A How to open Excel file saved in Outlook folder? Outlook VBA and Custom Forms 4
D.Moore Outlook desktop client suggested searches question Using Outlook 22
Y Outlook 2016 (64-bit) Copy Local Cal. Events to Another Cal. with Modified Reminder time Using Outlook 2
T Outlook 2019 While connecting an IMAP account in "classic" Outlook 2024 I caused a massive duplication of emails on the server (death loop) Using Outlook 5
D Cannot logon to Outlook.com, or outlook on Mac, outlook not updating on ipad, iphone Using Outlook 1
J unable to get my new install of Outlook to display mailboxes in the single-line format. Using Outlook 1

Similar threads

Back
Top