Start macro creating a mail with contact data and autotext

[WaWa]

Hallo,



I am working with an user form.

The developing of that form started with Outlook XP with a lot of code
inside for different buttons.



I changed to Outlook 2007 and unfortunately the code of the form was not
longer displayed.



What I learned about this is that MS does not support to much code in the
form (or maybe a bug).

They also do not support any longer.

I was sending this form to MS support but they told it is do much code
inside and they do not know, why the code is not displayed.



In Outlook 2003 the code is displayed as in Outlook XP.



Because I do not know really how to program a user form (I put it together
with some codes I found in Internet and with the help of Newsgroups) I
thought maybe the code is the reason why it is no longer displayed in
Outlook 2007.



So I started to develop the form from beginning in Outlook 2007.



Everything worked fine, but when it comes to too much code for the 12
buttons the same thing (code is no longer displayed) happened.



I could not find out if the reason is the number of lines or characters, in
fact if I put more code inside (more lines than 140) it is not displayed.



Concerning the above I have the following questions:





1. Is there another possibility to display and edit the code I only
know the steps - develop a form, -display code.



2. If not there is the idea to write in the code ...



and start a macro instead of writing the code in the form.
Therefore I created a macro called "Mail1", is placed in Modul1, with the
following content:
Sub Mail1()



Dim Nachricht

Dim Adresse

Dim Text

Set Nachricht = Application.CreateItem(olMailItem)

Set Item = ActiveInspector.CurrentItem

Nachricht.Subject = "Subject"

Nachricht.To = Item.Email1Address

Adresse = Item.CompanyName + vbCr

Adresse = Adresse + Item.BusinessAddressStreet + vbCr

Adresse = Adresse + Item.BusinessAddressPostalCode + " "

Adresse = Adresse + Item.BusinessAddressCity + vbCr + vbCr

Adresse = Adresse + Item.Title + " " + Item.LastName + vbCr + vbCr

Nachricht.Body = Adresse



Nachricht.Categories = "Geschäftlich"

Nachricht.Importance = olImportanceNormal

'Nachricht.Send

Nachricht.Display

End Sub




With a button called .
Sub CommandButton1_Click

Application.Mail1()

End Sub

'---

Private Sub CommandButton2_Click

Mail1

End Sub

'---

Private Sub CommandButton3_Click

Mail1()

End Sub

'---

Private Sub CommandButton4_Click

call Mail1()

End Sub

'---

Private Sub CommandButton5_Click

call Mail1

End Sub

'---

Private Sub CommandButton6_Click

run Mail1

End Sub

'---

Sub CommandButton7_Click

Application.Mail1

End Sub

'---


I try to start this macro, without success.
If I open a contact with my form a call the macro with Outlook commands, the
macro is working.



Please can anyone tell me how to call the macro and where the macro should
be placed?

Modul1,

This Outlook session?

Sub?

Private Sub?

Function?



3. The macro is creating a new email, fills in the contacts email
address and in the body the contact data.



Now I want to fill in an autotext below the address data.



I think that could be done in reading the autotext in a variable and put it
in the body like body = body + variable.



I do not want to create a menu entry or buttons in the toolbar and not only
open a mail item and choose the autotext entries from the menu.



It would be great if anybody can help me to make my button in the form alive
to call the macro.



WaWa



p.s. Windows Vista with all Windows updates, Outlook 2007 with all Office
updates. Macro security set to NO. I am not sure whether all necessary
libraries are enabled. It is a standard office installation.

 

[Ken Slovak - [MVP - Outlook]]

The macro code has this, a reason it works only when an item is already
open:

Set Nachricht = Application.CreateItem(olMailItem)
Set Item = ActiveInspector.CurrentItem

Before the second line you should have this:

Set Nachricht = Application.CreateItem(olMailItem)

Dim oInsp As Outlook.Inspector
Set oInsp = Nachricht.GetInspector
oInsp.Display False

Set Item = ActiveInspector.CurrentItem

That gets an Inspector and shows it so ActiveInspector is valid.

Although not supported, you put a macro as a Public Sub in
ThisOutlookSession to be able to call it as Application.MySub().

I don't know about 140 lines of form code being too much, I have forms with
over 1000 lines of code in them that were designed in Outlook 2003 or
earlier that work just fine with Outlook 2007, although of course the form
must be published to have any code in it actually run.

What you really have to look out for is using too many controls on a custom
form, things start to get weird when the controls number over 130 or so.

BTW, a more targeted group of newsgroups would be better to post in.

 

[WaWa]

Dear Ken,
thank you for your help but I have still problems calling the macro.

In "ThisOutlookSession" I have the following:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
End Sub

I do not know where this 2 lines above came from

Private Sub Mail1()

Dim Nachricht
Dim Adresse
Dim Text
Set Nachricht = Application.CreateItem(olMailItem)
Dim oInsp As Outlook.Inspector
Set oInsp = Nachricht.GetInspector
oInsp.Display False
Set Item = ActiveInspector.CurrentItem
Nachricht.Subject = "subject"
Nachricht.To = Item.Email1Address
Adresse = Item.CompanyName + vbCr
Adresse = Adresse + Item.BusinessAddressStreet + vbCr
Adresse = Adresse + Item.BusinessAddressPostalCode + " "
Adresse = Adresse + Item.BusinessAddressCity + vbCr + vbCr
Adresse = Adresse + Item.Title + " " + Item.LastName + vbCr + vbCr
Nachricht.Body = Adresse
Nachricht.Categories = "Geschäftlich"
Nachricht.Importance = olImportanceNormal
Nachricht.Display
End Sub

In the form code I have the following:
Sub CommandButton1_Click

Application.Mail1()

End Sub


to open the macro with the commandbutton.
Also
Private Sub CommandButton1_Click

Application.Mail1()

End Sub

Does not work

Macro security is set to no.
If I push the button I got the following message "The object does not
support feature ore method: Application.Mail1"

I hope you can tell me the right code or are there some other outlook
settings to be set to make it work.

Thanks a lot
WaWa

 

[Ken Slovak - [MVP - Outlook]]

Re-read what I said:

"Although not supported, you put a macro as a Public Sub..."

You made the Sub Private in scope.