Re: Projektnummer vor E-Mail Versand eingeben / Pflichteingaben vor Versand

Am 14 Sep 2005 15:46:35 -0700 schrieb martin.matties@xxxxxx:



> Hi Martin,
>
> danke für deinen Hinweis - ich habe mir das Beispiel angesehen, kann
> daraus aber mangels VBA-Programmierkenntnissen keine Lösung für mich
> ableiten.
>
> Wie fertige VBA.Scripts in OL eingebunden werden ist mir schon
> einigermaßen geläufig.
>
> Wie müsste denn der Code für meine Anforderung aussehen?
>
> Oder gibt es ein Tutorial, mit dem auch ein Newbi in der Lage ist,
> relativ schnell in die Erstellung eines entsprechenden Scripts
> reinzufinden?
>
> Ein Verweis auf Code-Besispiele, die ähnliche Anforderungen lösen,
> wären auch schon ein wenig hilfreich.
>
> Danke vielmals für Feedback oder Lösungsvorschläge.
>
> Grüße,
> Martin

Dieses Bsp. wird ausgeführt, wenn der User auf "Senden" klick:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim oMail As Outlook.MailItem
Dim sRes as String

If TypeOf Item Is Outlook.MailItem Then
Set oMail = Item
sRes=InputBox("Projektnummer:")
If Len(sRes) Then
oMail.Body="Projektnummer: " & sRes & vbcrlf & vbcrlf & oMail.Body
Endif
End Sub

Das Bsp. ist für Textmails und funktioniert nicht in OL 2000. Aufgrund eines
"Features" im Objektmodell OL 2000´s, das es nicht ermöglicht, Textmails zu
verändern (diese werden dann immer zu RTF konvertiert), wäre eine Lösung
dort aufwändiger.

Wenn Du nicht Text-, sondern HTML-Mails hast, dann schreibe Deine Daten
nicht in die Body-, sondern HTMLBody-Eigenschaft. Zeilenumbrüche (vbCRLF)
müssen dann in <br> Tags geändert werden.

Viele Beispiele findest Du bei Sue Mosher: www.outlookcode.com

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
.

Relevant Pages