Code doesn't open outlook and it should

[mercapto]

Hello,



So far, I am succesfully using this code to send emails via Outlook

Public Sub EnviarEmail(strEmail As String, strAsunto As String, srtCuerpoEmail As String, Optional strAdjunto As String)
 Dim olApp As Object
 Dim objMail As Object
 Dim aArchivosAdjuntos() As String

On Error Resume Next 'Keep going if there is an error

 Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open

 If Err Then 'Outlook is not open
 Set olApp = CreateObject("Outlook.Application") 'Create a new instance of Outlook
 End If

 'Create e-mail item
 Set objMail = olApp.CreateItem(olMailItem)

 With objMail

 'Set body format to HTML
 .BodyFormat = olFormatHTML
 .To = strEmail
 .Subject = strAsunto
 .HTMLBody = srtCuerpoEmail
 If Not IsNull(strAdjunto) Then
        aArchivosAdjuntos = Split(strAdjunto, ";")
        For i = LBound(aArchivosAdjuntos) To UBound(aArchivosAdjuntos)
            .Attachments.Add aArchivosAdjuntos(i), olByValue, , "My Displayname"
        Next i
 End If
 .Send

DoEvents

 End With
 
Set olApp = Nothing
Set objMail = Nothing

 MsgBox "Email enviado con éxito"
 
 End Sub

When I introduced it, it was in another computer and worked fine. In the PC I am currently using my program, it only works if I manually open Outlook. Then it sends all the emails in the queue. As I understand the code, it is supposed to be able to launch the program. Could it be that is beeing blocked?

Another question. This code gives a sort of confirmation when it finishes. This confirmation is totally virtual. Is there anyway to get an actual confirmation from outlook that the email is really sent?

Thank you very much.

[vincent-leeway]

Have you set up the mail server in your new PC?

[mercapto]

Have you set up the mail server in your new PC?

Of course. As I said before, code works great if I manually open outlook first.

[ItsMe]

It seems like your error trapping may be skipping over something, not sure though. Have you tried stepping through each line?

I use a function by Dev Ashish to make sure I have Outlook running on XP. http://access.mvps.org/access/api/api0007.htm

[June7]

Should be a document in your Sent folder. Code can probably verify that the email is there.

[mercapto]

Should be a document in your Sent folder. Code can probably verify that the email is there.

How would you do that?

[June7]

I don't have code to accomplish that, I just know it should be possible.

Bing: Access vba Outlook find message sent folder

This thread has code sample for cycling through messages of folder, maybe it can be tailored for the Sent folder http://windowssecrets.com/forums/sho...k-mail-folders

[mercapto]

I finally solved it by changing the variable declaration of the objects:

Dim olApp As Outlook.Application
 Dim objMail As Outlook.MailItem

I couldn't solve the "confirmation" point though.

[June7]

Here is better reference for code to access items in Outlook mail folders. http://www.freevbcode.com/ShowCode.asp?ID=4837

Works great. I didn't have to modify at all.

[mercapto]

Not solved at all...

This is weird. If I finish with ".Send" it works. But if I use ".Display" to preview, it opens Outlook and when I press "send" in the genuine Outlook window, the window closes but it does not send the mail!! I have to open Outlook manually to proceed to the upload.

I need a code that keeps Outlook running in background.

Here is better reference for code to access items in Outlook mail folders. http://www.freevbcode.com/ShowCode.asp?ID=4837

Works great. I didn't have to modify at all.

I'll check this, thanks!

[June7]

I tested your code. I commented the attachment part and eliminated the variables and used literal text. I set it for .Display. The code works even with Outlook closed, however, I get the Outlook username/password dialogue.

[mercapto]

I tested your code. I commented the attachment part and eliminated the variables and used literal text. I set it for .Display. The code works even with Outlook closed, however, I get the Outlook username/password dialogue.

I tried it in two different PCs so I don't know what to say. Perhaps you have somehow Outlook executing on the background.

Perhaps is something in my database -my access- that is making all the trouble...

[June7]

If Outlook is in the 'background' I don't know how.

Might be something in Tools > Trust Center need to change. I have Programmatic Access Security set to 'Never warn me ...' but if you are able to .Send the message then I suppose this is already set.

Sorry, can't replicate the issue.

[mercapto]

Is there any code to launch Outlook's main form, just like I had double-clicked the icon??

[June7]

Try:

Shell SysCmd(acSysCmdAccessDir) & "Outlook.exe"