Outlook

[josros60]

HI I know this for outlook,

if any body can help me on this,

have this code in outlook to open combobox and it work when select the template nothing happens and sometimes get error run time error 432 and highlight this line: Set oMail = Application.CreateItemFromTemplate(strTemplate)

here it's the code:

Public Sub ChooseTemplate()


'Dim oMail As Outlook.MailItem
'im oContact As Outlook.ContactItem


'If TypeName(ActiveExplorer.Selection.Item(1)) = "ContactItem" Then
' Set oContact = ActiveExplorer.Selection.Item(1)


Dim strTemplate As String
   UserForm1.Show


    Select Case lstNum
    Case -1
'  -1 is what you want to use if nothing is selected
         strTemplate = "Requesting Payment"
    Case 0
         strTemplate = "C.C. Authorization2"
    Case 1
        strTemplate = "Payment Inquiry-Current_Pastdue2"
    Case 2
         strTemplate = "Payment Inquiry-Current_Pastdue_Aging."
    Case 3
         strTemplate = "Provide C.C. Information_2.oft"
    Case 4
         strTemplate = "Refund Approval"
    Case 5
         strTemplate = "Contra Approval"
    Case 6
         strTemplate = "Terminate Due to Non Payment"
    Case 7
         strTemplate = "Remittance Address"


    End Select


    strTemplate = "C:\Documents and Settings\rossj1\Application Data\Microsoft\Templates\" & strTemplate & ".oft"
    Set oMail = Application.CreateItemFromTemplate(strTemplate)


'With oMail
'  .To = oContact.Email1Address
' .ReadReceiptRequested = True
'  .Subject = "My Macro test"
 ' .Body = "Hi " & oContact.FirstName & "," & vbCrLf & vbCrLf & oMail.Body
 ' .Display
'End With
 ' End If
Set oMail = Nothing


End Sub

thank you

 

[josros60]

Re: Outoook

thanks.

no error, just select and click ok, then close it, that's it.
+ Reply to Thread
thanks again

 

[Domenic]

Re: Outoook

Have you tried my suggested Select Case statement?

 

[josros60]

Re: Outoook

Yes I did, stillnot working,

here is the complete if you please can help me, would make my work easier because i do lots of emails,

Private Sub UserForm_Initialize()  With ComboBox1
    .AddItem "Payment Required"
    .AddItem "Credit CardAuthorization"
    .AddItem "Past Due Amount"
    .AddItem "Suspend Account"
    .AddItem "Provide CC Information"
    .AddItem "Refund Approval"
    .AddItem "Contra Approval"
    .AddItem "Terminate Account"
    .AddItem "Remittance Address"
    


  End With
End Sub


Private Sub btnOK_Click()
    lstNum = ComboBox1.ListIndex
        Unload Me
    
End Sub

Public lstNum As LongPublic Sub ChooseTemplate()
'Dim oMail As Outlook.MailItem
'im oContact As Outlook.ContactItem


'If TypeName(ActiveExplorer.Selection.Item(1)) = "ContactItem" Then
' Set oContact = ActiveExplorer.Selection.Item(1)


Dim strTemplate As String


   UserForm1.Show
Dim lstNum As Integer
    Select Case lstNum
        Case -1, 0 'no selection or first selection
             strTemplate = "Requesting Payment"
        Case 1
             strTemplate = "C.C. Authorization2"
        Case 2
            strTemplate = "Payment Inquiry-Current_Pastdue2"
        Case 3
             strTemplate = "Payment Inquiry-Current_Pastdue_Aging"
        Case 4
             strTemplate = "Provide C.C. Information_2"
        Case 5
             strTemplate = "Refund Approval"
        Case 6
             strTemplate = "Contra Approval"
        Case 7
             strTemplate = "Terminate Due to Non Payment"
        Case 8
             strTemplate = "Remittance Address"
    End Select


    strTemplate = "C:\Documents and Settings\rossj1\Application Data\Microsoft\Templates\" & strTemplate & ".oft"
    'Set oMail = Application.CreateItemFromTemplate(strTemplate)


'With oMail
'  .To = oContact.Email1Address
' .ReadReceiptRequested = True
'  .Subject = "My Macro test"
 ' .Body = "Hi " & oContact.FirstName & "," & vbCrLf & vbCrLf & oMail.Body
 ' .Display
'End With
 ' End If
'Set oMail = Nothing


End Sub


thanks

 

[Domenic]

Re: Outoook

Okay, let's see what's happening. First, in your procedure called ChooseTemplate, set a breakpoint at the line that says End Sub. You can do this one of two ways. You can either click next to the End Sub statement in the left margin indicator bar, or you can position your cursor in the End Sub line, and press F9 or click Toggle Breakpoint from the Debug menu. Then run ChooseTemplate. The macro should stop at the End Sub line. Then, first type the following line in the Immediate Window (Ctrl+G), and press Enter...

? strTemplate

And then type the following line in the Immediate Window, and press Enter...

? dir(strTemplate, vbNormal)

What do you get for both of the above?

By the way, I'm going to leaving soon, so I may not be able to get back to you until sometime later.

 

[Domenic]

Re: Outoook

Also, I'm assuming that you've already checked to make sure that the .oft files exist (ie. Requeting Payment.oft, C.C. Authorization2.oft, Payment Inquiry-Current_Pastdue2.oft, etc.), and that they exist in the specified folder, correct?

 

[josros60]

Re: Outoook

thanks.

Yes the templates oft files exist.

when type in the windows:

? strTemplate it's fine but when type

? dir(strTemplate, vbNormal) get run time error 13, mismtach

thanks



</pre>

 

[Domenic]

Re: Outoook

when type in the windows:

? strTemplate it's fine...

But what string does it actually return?

Also, I see that when you post your code, you comment out some lines of code. I'm assuming that you uncomment those lines when testing, correct? If not, make sure that you do so when testing.

 

[josros60]

Re: Outoook

On the first one when I press enter nothing happens
But on the second one when I press enter give run time error 13 mistmatch

Thank you

 

[Domenic]

Re: Outoook

On the first one when I press enter nothing happens

That means that the variable has not been assigned a value. And, in taking another look at your last code that you posted, I see why. For some reason, you've put back the declaration for lstNum (ie. Dim lstNum as Integer) within the ChooseTemplate procedure. You'll need to remove it, since we've now declared it as a public variable at the beginning of the module.

 

[josros60]

Re: Outoook

Thank you for answering all my questions.

I removed this line:

[COLOR=#333333]Dim lstNum As Integer[/COLOR]

still doesn't work.

thanks again