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

Termin mit VBA anlegen - wie füge ich Teilnehmer hinzu?

Frage Internet E-Mail

Mitglied: oscarspatz

oscarspatz (Level 1) - Jetzt verbinden

03.07.2008, aktualisiert 04.07.2008, 6166 Aufrufe, 1 Kommentar

Hallo!
Ich habe folgendes Problem:
Wir verwenden hier hauptsächlich V2003, ich schreibe gerade ein kleines Makro, welches von einer Excel-Liste (dort stehen die entsprechenden e-Mail Adressen drin) aus einen Termin in Outlook im Kalender einstellen soll.

Vom Prinzip kann ich auch den Termin erstellen - ich bekomm nur nicht die erfolderlichen und optionalen Teilnehmer hinzu.

Dies ist mein vereinfachter Quellcode:
[code]Sub Form_Load()
Dim objApp As Object
Dim termin As Object
Dim Datum As String
Dim Bezeichnung As String

Datum = "17.10.2008"
Bezeichnung = "BESPRECHUNG"

Set objApp = CreateObject("Outlook.Application")
Set termin = objApp.CreateItem(1)

With termin
.ReminderSet = False
.AllDayEvent = False
.Location = "Raum wird noch bekannt gegeben"
.Body = "Ein Termin"
.Duration = 120
.Start = Datum
.Subject = Bezeichnung
.Display
End With

Set termin = Nothing
Set objApp = Nothing

End Sub[/code]

Eine e-Mail aus der Excel-Liste klappt 1a - hier der Code:
[code]Sub email_verteiler()
Dim objApp As Object
Dim objMailItem As Object
Dim Adress As Variant
Dim to_Adress As String, cc_Adress As String
Dim max As Integer
Dim a As Integer
Dim b As Integer
Dim spalte As Integer, spalte_cc As Integer
Dim zeile As Integer
Dim indication As Integer
Dim spalten_e_mail_nummer As Integer
Dim anzahl_termine As Integer

'[...]

'Adressverteiler erzeugen
to_Adress = "to_Adresse"
cc_Adress = "cc_Adresse"

Set objApp = CreateObject("Outlook.Application")
Set objMailItem = objApp.CreateItem(0)

With objMailItem
.To = to_Adress
.CC = cc_Adress
.Subject = "wird noch ergänzt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Display
End With

Set objMailItem = Nothing
Set objApp = Nothing

End Sub[/code]

dort bekomm ich eben meine "to"-Adresse und meine "cc"-Adresse hin. Wie kann ich denn dies bei einem Termin umsetzen???

Danke für jede Hilfe...

Gruß
Mitglied: oscarspatz
04.07.2008 um 14:49 Uhr
Hab ne Lsg in nem anderen Forum gefunden....

hier das Detail:
With Termin
.ReminderSet = False
.AllDayEvent = False
.Location = "Raum wird noch bekannt gegeben"
.Body = "Ein Termin"
.Duration = 120
.Start = Datum
.Subject = Bezeichnung
Set myRequiredAttendee = .Recipients.Add("Mail_erf")
myRequiredAttendee.Type = 1
Set myOptionalAttendee = .Recipients.Add("Mail_opt")
myOptionalAttendee.Type = 2
.display
End With
Bitte warten ..
Ähnliche Inhalte
Windows Server
gelöst Wie füge ich einen Win Server 2008 zu einem Win Server 2012 hinzu (4)

Frage von Phade zum Thema Windows Server ...

Outlook & Mail
gelöst Outlook 2013 - Teilnehmer in Termin anzeigen (4)

Frage von xbast1x zum Thema Outlook & Mail ...

Windows Server
gelöst Wie füge ich diesem Script die Email Adresse hinzu (16)

Frage von rainergugus zum Thema Windows Server ...

Neue Wissensbeiträge
Drucker und Scanner

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

(1)

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

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
PC erhalten nicht immer eine gültige IP (29)

Frage von Lieberwolf zum Thema Netzwerkprotokolle ...

Windows Systemdateien
Windows 7 und 10 herunterfahren Knopf mit Script belegen (21)

Frage von c-o-o-p-e-r92 zum Thema Windows Systemdateien ...

Router & Routing
über Vmware auf eine FritzBox mit IPv6 per VPN (16)

Frage von Zockervogel zum Thema Router & Routing ...