Outlook Error when sending email from excel

[bradyboyy88]

I keep getting error 462: The remote server does not exist or is unavailable. Any ideas?

Here is my code:

Public Sub SendButton_EMAIL_Click()
    
    'Email Declarations
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem


     'Set References
    On Error GoTo OutlookErrors
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Set OutlookEventClass.oMailItem = OutMail
                 
     With OutMail
                    .SentOnBehalfOfName = FromLabel_EMAIL.Caption
                    .To = ToTextBox_Email.Text
                    .CC = CCTextbox_EMAIL.Text
                    .BCC = BCCTextbox_EMAIL.Text
                    .Subject = SubjectTextbox_EMAIL.Text
                    .Body = BodyTextbox_EMAIL.Text
                    If Not AttachmenLabel_EMAIL.Tag = "" Then
                        .Attachments.Add (AttachmenLabel_EMAIL.Tag)
                    End If
                    .Send
      End With
    
    OutApp.Quit
    Set OutMail = Nothing
    Set OutApp = Nothing

OutlookErrors:
            Debug.Print Err.Number & " : " & Err.Description
             
            If Not OutMail Is Nothing Then
                OutMail.Close (olDiscard)
            End If
            Set OutMail = Nothing
            
            If Not OutApp Is Nothing Then
                Set OutApp = Nothing
            End If

            Exit Sub
    
End Sub

 

[Norie]

This might be a stupid question, but is Outlook installed?

 

[bradyboyy88]

Lol yea its installed.

Turns out my attachment string had a error in it. I am still curious how I could perfect this code to make it better in regards to not having to open a new outlook if one is open and to handle any errors and close objects after the task is done. I want to close outlook ONLY if i created that object, if the instance was already open then I will use it but not close it.

 

[bradyboyy88]

This might be a stupid question, but is Outlook installed?

I lied the Set OutMail = OutApp.CreateItem(0) still draws an error.

 

[Norie]

Which version of Outlook is installed?

 

[bradyboyy88]

2013

 

[bradyboyy88]

Which version of Outlook is installed?

Looks like i needed to add

    Dim Session As Object
    Set Session = OutApp.GetNamespace("MAPI")
    Session.Logon

I have never needed that previously so thats weird.

 

[bradyboyy88]

Do you know how to check if mailitem is still open? I was going to use this code to send instead so I do not get any security messages but given sendkeys is so finicky i wanted to check if it its still open and if so close it.

                    .Display
                    Set myInspector = .GetInspector
                    myInspector.Width = 0.1
                    myInspector.Height = 0.1
                    '.Send
                    'Give outlook some time to display the message
                    Application.Wait (Now + TimeValue("0:00:02"))


                    'Activate the window that the mail item is in and use sendkeys to send the message
                    myInspector.Activate
                    SendKeys "%s", True

                   'Check if sendkeys worked by seeing if mailitem is still open and close it