Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBA, Outlook - Script erstellen um BCC hinzuzufügen

Mitglied: aivilon

aivilon (Level 1) - Jetzt verbinden

04.10.2012, aktualisiert 05.10.2012, 3901 Aufrufe, 3 Kommentare

Als erstes, ich hab leider VBA über die Zeit einwenig vernachlässigt und leider verlernt.

Hallo Zusammen

Was will ich erreichen:
Ich möchte mir einen Button in Outlook 2010 anlegen, mit welchem ich im Prinzip den Senden Button ersetze. Der "neue Button" muss bei einem Mail das ich gerade schreibe einfach einige vordefinierte Mailadressen in das BCC Feld eintragen und das Mail senden.

Ich möchte dies so, da ich ab und zu Mails versende, welche zumindest mich selber noch in der BCC Zeile benötigen. Aber meistens vergesse ich es, und wenn ich jetzt da oben nen Button Namens "mit BCC versenden" dann hoff ich mir davon, dies nicht mehr zu vergessen.

So nun zum Script. Ich habs schon hingekriegt, dass es automatisch bei jedem Mail das ich versende (per normalen senden Button) noch die Mailadresse ins BCC Feld eingetragen wird. So sieht das schöne ding aus:

01.
Private Sub BCC_Edit(ByVal Item As Object, Cancel As Boolean) 
02.
 
03.
Dim objMe As Recipient 
04.
Set objMe = Item.Recipients.Add("pascal.wyss@bruker.ch") 
05.
objMe.Type = olBCC 
06.
objMe.Resolve 
07.
Set objMe = Nothing 
08.
 
09.
End Sub
Nur kann ich dieses Script leider nicht ins Menuband einbinden (ausser wenn ich hinter BCC_Edit die Optionen raus nehme)
So hab ich mir nun gedacht, dass ich doch prinzipiell daraus auch eine Funktion machen könnte, und dies in einem einfachen:

01.
Sub BCC_Send 
02.
   call BCC_Edit 
03.
End Sub
Aufrufen könnte. Bei mir sieht dies momentan in etwa so aus:

01.
Sub BCC_Send() 
02.
 
03.
Call BBC_Send("pascal.wyss@bruker.ch", False) 
04.
 
05.
Dim olApp As Object 
06.
Set olApp = CreateObject("Outlook.Application") 
07.
    olApp.Save 
08.
    olApp.Send 
09.
 
10.
End Sub 
11.
 
12.
Public Function BCC_Edit(ByVal Item As Object, Cancel As Boolean) 
13.
 
14.
Dim objMe As Recipient 
15.
Set objMe = Item.Recipients.Add("pascal.wyss@bruker.ch") 
16.
objMe.Type = olBCC 
17.
objMe.Resolve 
18.
Set objMe = Nothing 
19.
 
20.
End Function
Das ganze mit dem Senden funktioniert leider auch nicht. Hab alles ein bisschen zusammengesucht.

Kann mir da wer helfen?


Grüsse
Aivilon

PS: Die Quelle lass ich jetzt ausnahmsweise mal aus, da ich ca 10 Seiten mit diesem Code gefunden habe...
Mitglied: Dani
04.10.2012 um 16:33 Uhr
Moin,
Nur kann ich dieses Script leider nicht ins Menuband einbinden
Du meinst bei einer neuen Nachricht?! Das Script funktioniert aber du bekommst den Button nicht sichtbar?


Grüße,
Dani
Bitte warten ..
Mitglied: NetWolf
04.10.2012 um 18:31 Uhr
Grüß Gott,

ist es ein Tippfehler, oder wird hier etwas rekursiv aufgerufen?

Du hast immer noch deine Symbolleiste, wo du ein Ion für deine Funktion ablegen kannst.

Grüße aus München
Wolfgang
(Netwolf)
Bitte warten ..
Mitglied: aivilon
04.10.2012 um 22:06 Uhr
ne wenn ich hinter dem sub noch die optionen angebe kann ich es im menu nicht ablegen. ausserdem sollte das script beim ausführen das feld bcc ausfüllen und danach senden
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBA Outlook - Automatisierte Anhänge - Script erweitern

gelöst Frage von sokraTonisVB for Applications3 Kommentare

Hallo Leute, ich würde mein Script: Sub AnlagenRewe(olMail As MailItem) Dim att As Attachment, fso As Object, ziel As ...

Microsoft

Mit VBA-Code ein Verzeichnis erstellen

gelöst Frage von DockMaster-deMicrosoft2 Kommentare

Hallo, ich habe mit MS Access 2010 eine Datenbank und ein Frontend. Daten werden über ein Formular eingegeben. Ich ...

Microsoft Office

VBA Script überwacht Dokumentenlänge

gelöst Frage von QuinniMicrosoft Office1 Kommentar

Hallo allesamt, ich suche seit einigen Stunden ein Script das permanent das Word Dokument überwacht und eine message box ...

Microsoft Office

EXCEL IF Bedingung in VBA erstellen

Frage von user2k14Microsoft Office8 Kommentare

Hallo Zusammen, Wie kann ich mehrere If Bedingungen in VBA abbilden und diese dann durch einen Button in Excel ...

Neue Wissensbeiträge
Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 2 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 8 StundenWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 12 StundeniOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 1 TagWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless25 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...