Automating Outlook 2007 problem with sending mail

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
 
N

Norm

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.
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
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 0
L Opening People Outlook 2021 Using Outlook 0
e_a_g_l_e_p_i Outlook 2021 not letting me setup my Gmail using pop Using Outlook 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0
P Can no longer sync Outlook with iPhone calendar after iPhone update to 17.1.1 Using Outlook 2
O Outlook - Switch from Exchange to IMAP Using Outlook 0
e_a_g_l_e_p_i Is it possible to have a reminder in Outlook 2021 for every 90 days Using Outlook 3
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
C Advanced search terms for "Outlook Data File" Using Outlook 1
N Reply to Outlook messages by moving messages to a specific Outlook folder Outlook VBA and Custom Forms 1
O How to find out the domain and server settings that my Outlook is using? Using Outlook 2
A Outlook 365 (OutLook For Mac)Move "On My Computer" Folder Items From Old To New Mac Computer Using Outlook 3
H Integrating Alexa & Outlook Pro 2021 Using Outlook 2
Z Automatically adjust Outlook Reading Pane from bottom to right depending on portrait or landscape window Using Outlook 1
Rupert Dragwater Background colors not saving in Outlook 365 Using Outlook 15
petunia Outlook tasks module sunsetting? Exchange Server Administration 3
G Save emails as msg file from Outlook Web AddIn (Office JS) Outlook VBA and Custom Forms 0
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 3
U Outlook 2021 not showing contact cards in Searches Using Outlook 1
C Outlook - Macro to block senders domain - Macro Fix Outlook VBA and Custom Forms 2
H Outlook 365 O365 outlook calendar item editing Using Outlook 1
J Outlook 365 html inline images Using Outlook 0
Rupert Dragwater How to get Outlook 365 to open from websites Using Outlook 5
S Why do I have to close and reopen Outlook for macros to work? Outlook VBA and Custom Forms 2
J Outlook 2021 ScanPST errors (yet again ... sorry): repair button missing Outlook 2021 Using Outlook 0
HarvMan Outlook 365 - Rule to Move an Incoming Message to Another Folder Using Outlook 4
K Moved pst to new computer, now Gmail not coming into Outlook Using Outlook 7
S Email Macros to go to a SHARED Outlook mailbox Draft folder...NOT my personal Outlook Draft folder Using Outlook 2
F Running Scripts in Outlook 2021 Using Outlook 0
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 3
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
V Outlook macros no longer run until VB editor is opened Outlook VBA and Custom Forms 0
R Outlook 365 How to integrate a third-party app with Outlook to track email and sms? Using Outlook 2
e_a_g_l_e_p_i I can't believe what I am seeing when trying to install Outlook 2021 Using Outlook 9
Kika Melo Outlook Calendar deleted appointments not in Deleted Items folder Using Outlook 3
P How to get a QR code for automatic signin with Outlook for iOS Using Outlook 5
J Migrating Outlook Using Outlook 1
Retired Geek Outlook for the MAC with Yahoo accounts now very broken Using Outlook 9
S Outlook 2002- "Send" button has disappeared. Help please. Using Outlook 1
L How Stop Outlook Nag Messages Using Outlook 1

Similar threads

Top