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
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, 2409 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
Microsoft Office
Outlook 2010 doppelte Kontakte zusammenführen
Frage von Herbrich19Microsoft Office1 Kommentar

Hallo, Ich habe von meinen Google Konto alle Kontakte ins Microsoft Exchange Postfach kopiert. Jetzt sind einige Kontakte dort ...

Outlook & Mail
Outlook 2010 ein Postfach kann nicht senden
gelöst Frage von tiwoleinOutlook & Mail3 Kommentare

Hallo, ein Bekannter fährt auf seinem Win 8.1 Laptop Outlook 2010 mit 2 POP3 Postfächern. Das eine ist ein ...

Exchange Server
Outlook 2010 "Senden Als" Berechtigungsproblem
gelöst Frage von Leo-leExchange Server9 Kommentare

Hallo Forum, ich möchte jemanden zusätzlich eine Berechtigung erteilen, um "Senden als" auf das jeweilige Postfach auszuführen. Leider Bekomme ...

E-Mail
Absender vor dem senden von postfix ändern
gelöst Frage von Web-SpiritsE-Mail1 Kommentar

Hallo, ich habe folgendes vor: die zwei Email Konten, benutzer1@domain.tld benutzer2@domain.tld sollen nach aussen im header nicht mehr zu ...

Neue Wissensbeiträge
Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 12 StundenInternet2 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 15 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Windows 10

Microsoft bestätigt DMA-Policy-Problem in Win10 v1709

Information von DerWoWusste vor 15 StundenWindows 10

Wer sein Gerät mit der DMA-Policy absichert, bekommt evtl. Hardwareprobleme in v1709 von Win10. Warum? Weil v1709 endlich "richtig" ...

Verschlüsselung & Zertifikate

Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows

Information von ticuta1 vor 19 StundenVerschlüsselung & Zertifikate

Interessant Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows SSH-Kommando in CMD.exe und PowerShell

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server16 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte14 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...