Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Mail Automatsieren
Gehe zu Seite 1, 2  Weiter
zurück: Commandbar ID weiter: Änderung der Schriftgröße Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Iceman008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Nov 2005, 10:07
Rufname:

Mail Automatsieren - Mail Automatsieren

Nach oben
       

Hallo ihr,

ich habe eine kleine frage.
Und zwar brauche ich für einen Kunden einMakro das folgendes macht

Er öffnet eine beliebige Mail und möchte dann in dieser Mail ein Makro ausführen das folgendes tut:

Wieterleiten klicken
AN klicken
einen entsprechenden Verteiler auswählt
als Text in den Body dann
z.K. reinschreiben
und dann auf senden klickt

Könnt ihr mir da behilflich sein?
Ich wäre euch wirklich sehr dankbar dafür Smile

Danke
Michael Bauer
MVP Outlook


Verfasst am:
18. Nov 2005, 10:20
Rufname:
Wohnort: Vollersode


AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Soll das Makro automatisch für jede geöffnete Mail oder auf Buttonclick ausgeführt werden?
_________________
Michael Bauer
Tools für Microsoft Outlook
Iceman008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Nov 2005, 10:35
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Das Makro soll auf einen Buttonklick funktionieren Smile

Danke Smile
burn112
Heimwerker


Verfasst am:
18. Nov 2005, 11:34
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Sehe ich das Richtig, du möchtest einen neuen Button haben der wenn du auf ihn klickst eine Email mit einem bestimmten Text an eine bestimmte Adresse sendet.

So richtig???
Iceman008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Nov 2005, 11:35
Rufname:


AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

FAST!

Ich möchte eine Mail die zum Beispiel in meinem Posteingang öffnen!

Da soll dann ein Button drin sein auf den Ich klicke. Und dann passiert folgendes:

Wieterleiten klicken
AN klicken
einen entsprechenden Verteiler auswählt
als Text in den Body dann
"z.K." reinschreiben
und dann auf senden klickt

Das wäre super Smile
burn112
Heimwerker


Verfasst am:
18. Nov 2005, 11:41
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Was soll ich unter
Zitat:
Wieterleiten klicken
AN klicken

versethen.

Einen Button zu erstellen der automatisch eine Email mit einem bestimmten Text an einen vorbestimmten Empfänger zu senden geht.
Iceman008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Nov 2005, 11:44
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Wenn du eine bestehende Mail öffnest!
Zum Beispiel im Posteingang dann gibt es da den Button weiterleiten.

Der soll gedrückt werden.
Und dann soll automatisch auf den Button AN gedrückt werden und aus dem globalen Adressbuch ein Verteiler ausgewählt werden.

So meine ich das.

Danach soll noch in die Mail

z.K.

reingeschrieben werden GANZ oben

und anschliessen auf SENDEN

Das soll aber nicht mit einer neuen Mail gehen.
Sondern ich öffne eine BEREITS ERHALTENE Mail (zum Beispiel Posteingang) und da will ich nen Button haben der das alles automatisch ausführt.
burn112
Heimwerker


Verfasst am:
18. Nov 2005, 11:51
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Also eine Standard Mail zum weiterleiten und versenden kann ich dir machen.
Allerdings kann ich nur einen Button basteln der auf dein Adressbuch zugreift und in Án eine Emailadresse einfügt und anschließend mit dem gewünschten Betreff und Body sendet.

Das ganze über einen bestehenden Outlook Button zu machen übersteigt allerdings meine Kompetenz.
Iceman008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Nov 2005, 11:53
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Das ganze soll nicht über einen bestehenden Button geschehen!
Sondern ein neuer Button on der Mail!

Aber das mit dem Button bekomme ich alleine hin!
Ich bräuchte nur das Makro Smile

Danke schonmal .)
Iceman008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Nov 2005, 11:58
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

P.S. wie man ein neues Mail per Macro erstellt das weiss ich

newMsg =
newMsg.To =

etc ppp

Aber ich brauche das ganze halt für eine bestehende Mail und weiterkeiten statt NEU
burn112
Heimwerker


Verfasst am:
18. Nov 2005, 12:02
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Probier mal den Quelltext in ein neues Modul zu kopieren
Code:
Sub newmail()
Dim ol, neumail

Set ol = CreateObject("Outlook.Application")
Set neumail = ol.CreateItem(olMailItem)

With neumail
    .Recipients.Add "Verteilerliste"
    .Body = "z.K." & neumail.Body
    .Send
End With
End Sub


und den hier kopierst du in DieseOutlookSitzung

Code:
'Globale Variable.
Public WithEvents myInspector As Inspectors
'Beim Outlook Start wird eine Funktion aufgerufen.
Private Sub Application_Startup()
    Call intializeInspector
End Sub

Public Sub intializeInspector()
    Set myInspector = Application.Inspectors
End Sub

Public Sub myInspector_NewInspector(ByVal Inspector As Inspector)
'Bei einem Fehler gehe zur Marke.
'In diesem Fall unerlässlich, da Notizen keine Standardleiste besitzen.
On Error GoTo Marke
'Wenn das geöffnete Fenster vom Typ Nachrichtenfenster ist, dann...
If Inspector.CurrentItem.Class = olMail Then
    'wird geprüft, ob das Nachrichtenfenster schon einmal gesendet wurde.
    If Inspector.CurrentItem.Sent = True Then
        'Wenn die Nachricht noch nicht gesendet wurde, den V-Senden Button anzeigen.
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = True
    Else
        'Wenn die Nachricht schon einmal gesendet wurde, den V-Senden Button verstecken.
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
    End If
Else
    'Wenn es kein Fenster des Typs Nachrichtenfenster ist, wird der V-Senden Button ausgeblendet.
    Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
End If
Exit Sub
Marke:
'Wenn ein Fehler auftritt führt das Makro keine Aktion aus.
On Error GoTo 0
End Sub
POWVorti
Nix Neuling...


Verfasst am:
18. Nov 2005, 12:17
Rufname:
Wohnort: Where the streets have no name...

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Hi!
Das wird nicht funktionieren. Es besteht ja gar kein Bezug zwischen dem Sub "newmail" und dem Rest des Codes... Du solltest beschreiben, daß er das Makro erst in seiner Commandbar des Fenster einrichten muß und das der Button dann auch so genannt werden muß.

Außerdem wird in newmail ein neues Mailitem erstellt, nicht das andere weitergeleitet.
Die Funktion müßte wie folgt lauten:
Code:
Sub newmail()
Dim neumail As MailItem

Set neumail = ActiveExplorer.CurrentItem.Forward
With neumail
    .Recipients.Add "Verteilerliste"
    .Body = "z.K." & neumail.Body
    .Send
End With
End Sub
burn112
Heimwerker


Verfasst am:
18. Nov 2005, 12:23
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Okay danke das hab ich vergessen.

In
Zitat:
Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = True

und in
Zitat:
Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False

must du den Namen deines Buttons angebn zum Beispiel z.k.
burn112
Heimwerker


Verfasst am:
18. Nov 2005, 12:25
Rufname:

AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Code:
Inspector.CommandBars.Item("Standard").Controls.Item("z.K.").Visible = True


und in

Code:
Inspector.CommandBars.Item("Standard").Controls.Item("z.K.").Visible = False

[/code]
Iceman008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Nov 2005, 09:24
Rufname:


AW: Mail Automatsieren - AW: Mail Automatsieren

Nach oben
       

Hi ihr,

also wenn ich das richtig verstanden habe dann muss ich mir ein Makro erstellen und PowVorti`s Code reinkopieren.

Und burn112`s Code muss ich in die aktuelle Outlook Sitzung kopieren!
Und dann funktiioniert das Makro?

Nur wie kopiere ich Code in die AKTUELLE Outlook Sitzung?
Und muss ich den immerwieder dort reinkopieren?

Danke schonmal für eure Hilfe Smile



POWVorti hat folgendes geschrieben:
Code:
Sub newmail()
Dim neumail As MailItem

Set neumail = ActiveExplorer.CurrentItem.Forward
With neumail
    .Recipients.Add "Verteilerliste"
    .Body = "z.K." & neumail.Body
    .Send
End With
End Sub


burn112 hat folgendes geschrieben:

und den hier kopierst du in DieseOutlookSitzung
Code:

Code:
'Globale Variable.
Public WithEvents myInspector As Inspectors
'Beim Outlook Start wird eine Funktion aufgerufen.
Private Sub Application_Startup()
    Call intializeInspector
End Sub

Public Sub intializeInspector()
    Set myInspector = Application.Inspectors
End Sub

Public Sub myInspector_NewInspector(ByVal Inspector As Inspector)
'Bei einem Fehler gehe zur Marke.
'In diesem Fall unerlässlich, da Notizen keine Standardleiste besitzen.
On Error GoTo Marke
'Wenn das geöffnete Fenster vom Typ Nachrichtenfenster ist, dann...
If Inspector.CurrentItem.Class = olMail Then
    'wird geprüft, ob das Nachrichtenfenster schon einmal gesendet wurde.
    If Inspector.CurrentItem.Sent = True Then
        'Wenn die Nachricht noch nicht gesendet wurde, den V-Senden Button anzeigen.
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = True
    Else
        'Wenn die Nachricht schon einmal gesendet wurde, den V-Senden Button verstecken.
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
    End If
Else
    'Wenn es kein Fenster des Typs Nachrichtenfenster ist, wird der V-Senden Button ausgeblendet.
    Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
End If
Exit Sub
Marke:
'Wenn ein Fehler auftritt führt das Makro keine Aktion aus.
On Error GoTo 0
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: Kann Mail aus dem Postausgang nicht entfernen 1 Gast 4025 11. März 2006, 13:21
Christi@n Kann Mail aus dem Postausgang nicht entfernen
Keine neuen Beiträge Outlook Mail: Mail Vorlage und Signatur 1 -hawkeye- 9114 09. März 2006, 22:17
Peter Marchert Mail Vorlage und Signatur
Keine neuen Beiträge Outlook Mail: Hilfe!! Bekomme kein Mail mehr rein! 8 Tycoon 1311 24. Jan 2006, 09:50
Tycoon Hilfe!! Bekomme kein Mail mehr rein!
Keine neuen Beiträge Outlook Mail: Nicht gespeicherte Mail wieder herstellen 1 Wuidschuetz 2335 02. Dez 2005, 10:53
Christi@n Nicht gespeicherte Mail wieder herstellen
Keine neuen Beiträge Outlook Mail: Mail Absender falsch 8 Jürgen Eitler 3343 09. Sep 2005, 13:52
Gast Mail Absender falsch
Keine neuen Beiträge Outlook Mail: Outlook 2003 erste Mail wird nicht verschickt 6 Gast 2734 25. Aug 2005, 13:00
Krug Outlook 2003 erste Mail wird nicht verschickt
Keine neuen Beiträge Outlook Mail: Automatische Antworts mail (Urlaubsfunktion) 1 player-1 2825 21. Jul 2005, 20:04
wolf-it Automatische Antworts mail (Urlaubsfunktion)
Keine neuen Beiträge Outlook Mail: Nach löschen der Mail nur "durchgestrichen" aber n 2 nerd 12060 18. Jul 2005, 15:55
nerd Nach löschen der Mail nur "durchgestrichen" aber n
Keine neuen Beiträge Outlook Mail: Outlook 2003 / Mail Weiterleiten / ich will es merken 4 Iceman008 1595 14. Jul 2005, 10:50
kraemer Outlook 2003 / Mail Weiterleiten / ich will es merken
Keine neuen Beiträge Outlook Mail: Arbeitsspeicherprob. beim Anlagenhinzufügen einer neuen Mail 4 Tischler 995 11. Jul 2005, 15:19
Christi@n Arbeitsspeicherprob. beim Anlagenhinzufügen einer neuen Mail
Keine neuen Beiträge Outlook Mail: Abwesenheitsassistent, Mails weiterleiten zu ext. Mail 1 nicksan 1929 22. Feb 2005, 11:45
kraemer Abwesenheitsassistent, Mails weiterleiten zu ext. Mail
Keine neuen Beiträge Outlook Mail: Adressauswahl bei neuem Mail gestört 10 swissbird 912 19. Feb 2005, 15:49
macdeal Adressauswahl bei neuem Mail gestört
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage