Getting error user define type not define

**mukeshbaviskar** · 08-23-2013, 11:51 AM

Hello Friends,
I'm getting error 'Compile error: User-define type not define' in my program. Please remove it to run the program.
Please also suggest me a code to minimise outlook after opening.
Thanking you in anticipation.

Mukesh

**Kenneth Hobson** · 08-23-2013, 12:12 PM

For your problem, in the Visual Basic Editor (VBE), select Tools > References > Microsoft Outlook 14.0 Object Library > OK. Obviously, the 14.0 should be changed if not Outlook 2010.

I suggest making example workbooks that only show what you need help with. Try to make it simple and short.

The recorder only gets you so far. Consider change code like:

Range("A1").Select
Selection.Clear

use

Range("A1").Clear

Another tip: always use Option Explicit as the first line of code in an object like Module. You can make that a default option in VBE's Tools > Options > Require Variable Declaration > OK.

You do not need to create several Modules with one Sub per Module. You can have many Subs and Functions in a single Module. I tend to create categories of Modules. e.g. mFSO, mKen, mOutlook, mMSWord, mWorkbook, mWorksheet, mRange, etc. These are usually in my Personal workbook for easy access.

**mukeshbaviskar** · 08-23-2013, 12:38 PM

Hello Kenneth Hobson,
Thank you for your guidance. I will follow your suggestions positively in my workbook in future.

After opening the file I want to open outlook first and then anniversary macro to send the mail automatically. Here I'm getting error. The error is in anniversary macro. Please suggest me a solution to remove it. I'm using outlook 2007 and outlook object version is 12. I want to minimise the outlook after opening it automatically.

Solution please!

Mukesh

**Kenneth Hobson** · 08-23-2013, 12:51 PM

Please be more specific about the Error. Stepping through the code with F8, you can find where it may error.

Had you used the Option Explicit, and then used Compile, you would have seen that you were missing the Dim for the Outlook Application. I recommend editing your VBA toolbar and add Compile.

I fixed the Dim issue and added code that may minimize the window. I don't use Outlook on this computer so I can not test.

Sub Anniversary()
  Dim OutlookApp As Outlook.Application
  Dim tRow As Integer
  Dim Name As String
  Dim t As Variant
  Dim MItem As Outlook.MailItem
  Dim cell As Range
  Dim Subj As String
  Dim EmailAddr As String
  Dim Recipient As String
  Dim Msg1 As String, Msg2 As String, Msg3 As String, Msg4 As String
  Dim Msg5 As String, Msg6 As String, Msg7 As String, Msg8 As String
  Dim Msg9 As String, Msg10 As String, Msg11 As String, Msg12 As String
      
  Application.ScreenUpdating = False
  
  Range("t7").Interior.Color = xlNone
  Do
      ActiveCell.Offset(1, 0).Select
      tRow = ActiveCell.Row
      If Range("t" & tRow).Value = "-" Then GoTo lblLoop
      On Error GoTo lblLoop
      If Month(Range("t" & tRow).Value) = Month(Now()) And Day(Range("t" & tRow).Value) = Day(Now()) Then
      On Error GoTo 0
      ActiveCell.Offset(0, -1).Interior.ColorIndex = 6
      Name = ActiveCell.Offset(0, -1).Value
      MsgBox (Name & "'s Birthday Today!"), vbOKOnly
   '-------------------  Start Creating Email using outlook ---------------
  'Create Outlook object
      Set OutlookApp = New Outlook.Application
      ' http://answers.microsoft.com/en-us/office/forum/office_2007-customize/minimizing-the-outlook-window-with-vba/7e05e400-21f3-4d32-962d-3941a82c583c
      OutlookApp.ActiveWindow.WindowState = 1
      EmailAddr = ActiveCell.Offset(0, 6).Value
      Msg1 = "Dear " & Name & ","
      Msg2 = """Hope your Special day"
      Msg3 = "Brings you all that"
      Msg4 = "Your heart desires"
      Msg5 = "Here's wishing you a day"
      Msg6 = "Full of pleasant surprises!"
      Msg7 = "Happy Birthday"""
      Msg8 = "I have a great pleasure to convey my best wishes on the occasion of your Birth Day!"
      Msg9 = """May God offer you a very Healthy and Wealthy life ahead!!"""
      Msg10 = "Please see the attachment."
      Msg11 = "With regards,"
      Msg12 = "Mukesh Baviskar"
      Subj = "Happy Birthday"
      
      'Create Mail Item and view before sending
      Set MItem = OutlookApp.CreateItem(olMailItem)
      With MItem
          .To = EmailAddr
          .Subject = Subj
          '.HTMLBody = "<center><img src='C:\Cake.jpg'></center><br><br>" 'Insert the full windows path of your image here
  '        .HTMLBody = .HTMLBody & "<font color='red'>"
          .HTMLBody = "<html>" & "<center><img src='C:\Cake.jpg'></center><br><br>" & "<br/>" & "<font face=""Arial"" size=""2"" color=""FF1CAE"">" & _
          Msg1 & "<center><b><font face=""Arial"" size=""2"" color=""blue"">" & "<br/>" & "<br/>" & _
          Msg2 & "<br>" & Msg3 & "<br>" & Msg4 & "<br>" & Msg5 & "<br>" & Msg6 & "<br>" & Msg7 & "</font></b></center>" _
           & "<br><br><font color='FF1CAE'>" & Msg8 & "<br><br>" & Msg9 & "<br><br>" & _
              Msg10 & "<br><br>" & "<font face=""Arial"" size=""2"" color=""red"">" & Msg11 & "<br><br>" & Msg12 & "</font>"
                  '.Attachments.Add ("c://Happy Birthday.xlsm")  ' for example
          .Display
          .Send
      End With
  
      Set OutApp = Nothing
      Set OutMail = Nothing
  
       '-------------------  End Creating Email using outlook ---------------
      End If
lblLoop:
  Loop Until IsEmpty(ActiveCell.Offset(1, 0)) = True
  
  Application.ScreenUpdating = True
End Sub

**mukeshbaviskar** · 08-23-2013, 08:45 PM

I made changes suggested by you but still the problem is not solved. The error is in this line.

Dim OutlookApp As Outlook.Application

Please suggest me how to remove this error.

Thanking you in anticipation.

Mukesh

**Kenneth Hobson** · 08-23-2013, 10:46 PM

If you are going to use early binding like that, you must set the Outlook object reference.

For your problem, in the Visual Basic Editor (VBE), select Tools > References > Microsoft Outlook 14.0 Object Library > OK. Obviously, the 14.0 should be changed if not Outlook 2010.

**mukeshbaviskar** · 08-23-2013, 11:04 PM

Dear Kenneth Hobson,
Good morning! I have already mentioned in my previous reply that I'm using outlook 2007 and set outlook object library 12 in vbe. But still the problem is occurring. So I humbly request you to look in this problem positively.

Is there anything wrong in my code? I mentioned in which line I'm getting error in anniversary macro. Please refer my previous reply again for avoide confusion.

Thanking you in anticipation.

Mukesh

**Kenneth Hobson** · 08-24-2013, 12:01 AM

If you had set the reference, then I should have seen a broken reference in your example.

I guess you can try late binding if you can not make the early binding method work. This MVP has an example or two. http://www.erlandsendata.no/english/...controloutlook

You might want to look into CDO.
'If locked out of CDO, install: http://www.dimastr.com/redemption/
'http://www.vbaexpress.com/forum/showthread.php?t=22439

http://www.outlook-stuff.com/lang-en...anhaengen.html

Here is a late binding method:

'xld, http://vbaexpress.com/forum/showthread.php?t=21633
Private OLApp As Object
Private OLNS As Object
 
Public Sub ProcessData()
    Dim i As Long
    Dim LastRow As Long
     
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set OLApp = CreateObject("Outlook.Application")
        Set OLNS = OLApp.GetNameSpace("MAPI")
        OLNS.Logon , , True
        For i = 2 To LastRow
            MailIt .Cells(i, "C").Value, .Cells(i, "A").Value, .Cells(i, "B").Value
        Next i
    End With
End Sub
 
Private Sub MailIt(eMail As String, pName As String, pCompany As String)
    Dim oMailItem As Object
    Dim oRecipient As Object
     
    Set oMailItem = OLApp.CreateItem(0)
    Set oRecipient = _
    oMailItem.Recipients.Add(eMail)
    oRecipient.Type = 1
    With oMailItem
        .Subject = "Here is my subject"
        .Body = "To: " & pName & vbNewLine & _
        "of: " & pCompany & vbNewLine & vbNewLine & _
        "This is an automatic email notification."
        .Send 'use .Display to test
    End With
End Sub

**mukeshbaviskar** · 08-24-2013, 12:15 AM

Dear Kenneth Hobson,
Thank you for guidance but I'm totally confused due to my little knowledge of vba. Therefore I request to modify my code and send a copy to me to avoide problem again.

Please do it for me to solve my problem positively. Sorry for trouble.

Thanking you in anticipation.

Mukesh

**mukeshbaviskar** · 08-26-2013, 10:55 PM

Dear Kenneth Hobson,
Thank you for your cooperation and sincere efforts to solve my problem. I think to leave off the idea of sending mail through outlook because it's giving problem to me repeatedly.

To avoide it I have decided to accept the idea to send mail using CDO. I tried my level best to create a code but it's giving error. Please go through it and solve my problem to complete my program.

I want to send the mails to the different recipients on their birthday but I'm not able to do it in code. Look into this problem please. The date should be in the center align which is now left align.

Thanking you in anticipation.

Mukesh

Getting error user define type not define

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Re: Getting error user define type not define

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] user define function (max if)

error 1004 application define or object define

Define named range where user can define size

Define 'tails' and 'type' better than the TTEST help file.

Array of User define data.

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions