Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

Outlook 2010 Sende Script (Abfrage von welchem Absender - BCC inkludiert) zusammenführen

Frage Entwicklung VB for Applications

Mitglied: Tranministrator

Tranministrator (Level 1) - Jetzt verbinden

15.04.2013, aktualisiert 12:49 Uhr, 2378 Aufrufe, 2 Kommentare

Ich habe bereits 2 Abfragen für VB und möchte die aber zusammenführen

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo Err001
Dim objItem As Outlook.MailItem
If Item.Class = olMail Then
If MsgBox("E-Mail als 'Support' versenden?", vbYesNo) = vbYes Then
Set objItem = Item.Copy
objItem.SentOnBehalfOfName = "support@service4work.com"
objItem.Send
Item.Delete
Cancel = True
End If
End If
Exit Sub
Err001:
MsgBox "Ein Fehler ist beim E-Mail Versand aufgetreten!"
End Sub



Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("addresse@domain.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub



Wie schaffe ich es dass wenn auf Ja gedrückt wird dass auch nur dann an BCC fix geschickt wird?
Geht das in einem Script?
Wenn nein gedrückt wird soll ganz normal gesendet werden, ohne BCC und ohne Spezial VON.

Sorry wegen der Formatierung, ich habe nicht herausgefunden wie man das ordentlich darstellen kann.

Danke

Lg
Mitglied: colinardo
15.04.2013, aktualisiert um 13:31 Uhr
Hallo Transministrator,

01.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
02.
	On Error GoTo Err001 
03.
	Dim objItem As Outlook.MailItem 
04.
	If Item.Class = olMail Then 
05.
		If MsgBox("E-Mail als 'Support' versenden?", vbYesNo) = vbYes Then 
06.
			Set objItem = Item.Copy 
07.
			objItem.SentOnBehalfOfName = "support@service4work.com" 
08.
			Dim objMe As Recipient 
09.
			Set objMe = objItem.Recipients.Add("addresse@domain.com") 
10.
			objMe.Type = olBCC 
11.
			objMe.Resolve 
12.
			objItem.Send 
13.
			Item.Delete 
14.
			Cancel = True 
15.
		Else 
16.
			Cancel = False 
17.
		End If 
18.
	End If 
19.
	Exit Sub 
20.
	Err001: 
21.
	MsgBox "Ein Fehler ist beim E-Mail Versand aufgetreten!" 
22.
End Sub
Zu deiner Frage der Formatierungen hier im Forum :
http://www.administrator.de/faq/20

Grüße Uwe
Bitte warten ..
Mitglied: Tranministrator
15.04.2013 um 13:59 Uhr
Hallo Uwe,

das ging ja flott

Vielen Dank für deine Bearbeitung und Info! Hat auf Anhieb funktioniert

Beste Grüße

Robert
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Batch & Shell
Skripterstellung Lehrling (22)

Frage von 133119 zum Thema Batch & Shell ...

Windows Userverwaltung
gelöst Wie verfahrt Ihr mit den Windows-Benutzerkonten und -dateien von ausgeschiedenen Mitarbeitern? (14)

Frage von Bl0ckS1z3 zum Thema Windows Userverwaltung ...

Exchange Server
Microsoft Exchange Weiterleitung mit anderer primären E-Mail Adresse (14)

Frage von Rene12345 zum Thema Exchange Server ...

LAN, WAN, Wireless
Devolo DLAN 500 pro Wireless+ (13)

Frage von IceAge zum Thema LAN, WAN, Wireless ...