Computer – die neusten Beiträge

VBA Programmierung - Automatischer Email versandt Probleme?

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

Bild zum Beitrag
Computer, Microsoft Excel, E-Mail, programmieren, VBA, VBA Programmierung, VBA Excel, makros erstellen

Wasserkühlung (AIO) für Ryzen 7 2700x + Montage und (einbauschwierigkeiten)?

Hallo, kurz gesagt ich möchte mir eine Wasserkühlung (AIO) kaufen. Benutze Zurzeit den Boxed kühler von Ryzen 7 2700x.

Grund: Spiele wie in Divison 2 Beträgt die CPU Temperatur 90Grad max während die GPU max 65 Grad beträgt (Gemessen mit MSI Afterburner). Mir ist Bewusst das Die CPU 10Grad Offset hat. Ob MSI Afterburner die 10Grad Automatisch abzieht kann ich nicht sagen.

----------------------------------------------------------------------

Informationen des Gehäuses Einbaumöglichkeiten

Hab im Internet gelesen, dass es 2x 120/140mm lüfter passen (Deckel).

https://www.pcper.com/reviews/Cases-and-Cooling/Be-Quiet-Silent-Base-800-Mid-Tower-Case-Review/Cooling-Options

----------------------------------------------------------------------

Meine zweite Frage wäre ob ich es an der Front Montieren könnte?

Frontmontage? http://prntscr.com/n2d926

----------------------------------------------------------------------

Preis für AIO bis 130€

----------------------------------------------------------------------

Wichtig: Das Problem ist, dass Mein Mainboard wegen der Kühlplatine (hinten) mit 3 Schrauben weniger befestigt wurde aufgrund der vormontierten abstandshalter (wie im Bild unten) und ich nicht weiß, ob mein Mainboard so einen großen Kühler mit 3 schrauben weniger halten könnte.

  • Mainboard Fehlende Schrauben Bild http://prntscr.com/n2d841
  • Kühlplantine am Mainboard die das verhindert http://prntscr.com/n2d8to
  • Abstandshalter http://prntscr.com/n2dc2i

(Die Bilder sind alle von Google als Beispiel)

----------------------------------------------------------------------

Mein PC

  • Gehäuse bequiet Silent base 800 - 2 Front lüfter und einer Hinten
  • GPU: Asus RTX 2080 OC
  • CPU: Ryzen 7 2700x
  • MAINBOARD: Gigabyte X470 Aorus Gaming 7
  • RAM: 32GB G.Skill Trident Z
  • NETZTEIL: 650 Watt be quiet Dark Power Pro 80+ Platinum
  • M.2: 1000GB Crucial P1 NVMe
  • SSD: 240Gb Kingston
  • HDD: 1Tb WDblue
PC, Computer, Technik, Montage, Wasserkühlung, Kaufberatung, Schwierigkeiten, Technologie, AiO-Wasserkühlung, Spiele und Gaming

Pc Energiesparmodus etc. Probleme?

Ok... ich hab ein etwas gefinkeltes Problem:

Wenn ich meinen Pc herunterfahre, geht er in den Standbymodus. (Ich kann ihn aber nicht wie beim normalen Energiesparmodus mit einen Tastendruck aufwecken). Im System ist alles richtig Eingestellt was beim "Herunterfahren" passieren soll.

13:52:14 --> Kernel Power (187) : Von einem Prozess im Benutzermodus wurde versucht, den Systemstatus durch den Aufruf der SetSuspendState- oder SetSystemPowerState-API zu ändern.

13:52:15 --> Kernel Power (42) : Das System wird in den Standbymodus versetzt.Ursache: Application API / Obwohl ich eig. auf herunterfahren gegangen bin .-.

13:52:16 --> EnhancedStorage-EhStorTcgDrv (100) : The following informational event has occurred (0x0, 0x4, 0x0, 0x0).
D0Exit

13:52:16 --> Kernel Power (107) : Das System wurde aus dem Energiesparmodus reaktiviert.

13:52:25 --> Kernel General (1) : Die Systemzeit wurde von ‎2019‎-‎03‎-‎24T12:52:16.855469500Z in ‎2019‎-‎03‎-‎24T12:53:25.500000000Z geändert.
Änderungsgrund: System time synchronized with the hardware clock.Prozess: '' (PID 4).

13:53:25 --> EnhancedStorage-EhStorTcgDrv (100) : The following informational event has occurred (0x0, 0x4, 0x0, 0x0).
D0Entry

13:53:26 --> e1iexpress (27) : Intel(R) I211 Gigabit Network Connection Network link is disconnected.

13:53:26 --> Kernel Boot (30) : Von der Firmware wurden Startmetriken gemeldet.

13:53:27 --> Winlogon (7001) : Benutzeranmeldebenachrichtigung für Programm zur Verbesserung der Benutzerfreundlichkeit

13:53:28 --> Power Troubleshooter (1) : Das System wurde aus einem Standbymodus reaktiviert.
Zeit im Energiesparmodus: ‎2019‎-‎03‎-‎24T12:52:14.986852300Z
Reaktivierungszeit: ‎2019‎-‎03‎-‎24T12:53:26.980002200Z
Reaktivierungsquelle: Unbekannt
Hier hab ich das System mit dem Power Knopf am Gehäuse hochgefahren...

Treiber sind alle da und aktualisiert: der Pc ist überhaupt neu und die Hardware ist miteinander Kompatibel.

Hier noch paar Daten:

Prozessort: AMD Ryzen 7 2700 Eight-Core Processor 3.40 GHz
Installierter RAM: 16,0 GB
Systemtyp: 64-Bit-Betriebssystem, x64-basierter Prozessor
Windows 10 Home
Installiert am 28.01.2019

An sich hab ich eine GTX 1080 Ti 11GB und als Mainboard das ROG Strix B450-F Gaming

Ich hab bereits bei cmd mit Adminrechten jeweils powercfg Befehle durchgeführt

Hier der powercfg/energie report: file:///C:/Windows/System32/energy-report.html

Beim powercfg/sleepstudy report sagt es mir Shutdown (Hybrid), der Hybridmodus ist doch das Schnellhochfahren oder ? Liegt es daran ?

Hier der powercfg/systemsleepdiagnostics log: file:///C:/Windows/System32/system-sleep-diagnostics.html#user-not-present-session-6

Das wärs mal fürs erste, falls Infos fehlen oder andere Sachen benötigt werden, bitte melden ^^

PC, Computer, Technik, Hardware, Elektronik, System, herunterfahren, cmd, Technologie, Troubleshooting, Spiele und Gaming

Mikrofon für voice chat?

Hey,

Ich habe mich jetzt dazu entschieden, anstellen eines Headsets, Kopfhörer + ein Mikrofon zu kaufen.

Kopfhörer sollen es dir beyerdynamic dt770/ 990 pro werden. Ich bin aber noch am überlegen ob lieber offen, oder geschlossen für das Zocken. Kann mir da jemand helfen? Ich habe den Dell G3 Laptop, also wahrscheinlich keine wirklich gute Soundkarte. Wird es reichen um mit den genannte KH einen guten Sound zu erreichen?

Jetzt bin ich am Punkt angekommen, an dem ich mich der Mikrofonsuche widmen muss. Benutzen will ich es lediglich für Voice Chat, discord, etc. Ich hatte mir zuerst das Antlion modmic angeschaut, habe aber mit ein bisschen Recherche oft gehört, es soll für den Preis nicht gut sein.

Ich habe mir überlegt ein 'richtiges' Mikrofon, also beispielsweise ein Studio Mikrofon zu kaufen, weiß aber nicht genau welches es werden soll. Das Auna cm600 sah ganz gut aus. Zusammen mit einem Standfuß wäre das preislich bei 58€ was eigentlich schon meiner oberste Preisgrenze wäre. Hätte denn einer noch ein Gutes Mikrofon zu empfehlen, dass extrem Preiswert ist? Einfach vorschlagen!!!

Also nochmal zusammengefasst:

  1. Offene (dt 990) oder geschlossene (dt770) Kopfhörer zum Zocken?
  2. Erreiche ich einen guten Sound mit den KH auch ohne wirklich gute Soundkarte?
  3. Ist das Auna cm600 gut und preiswert?
  4. Hat jemand ein gutes Headset (lediglich für Discord/ Skype/ Voice Chat zwecke), welches nicht allzuviel kostet und auch ohne gute Soundkarte gut ist?
PC, Computer, Games, Videospiele, Musik, Internet, online, Tipps, Teamspeak, Film, Skype, Technik, Notebook, Geld, Elektronik, Call of Duty, Mikrofon, Gaming, Qualität, kaufen, Dell, Headset, Interface, Kopfhörer, Nvidia GeForce, Online-Spiele, preiswert, Technologie, Treiber, zocken, Intel Core i7, Soundkarte, beyerdynamic, externes mikrofon, Gaming Headset, gaming-kopfhoerer, Gaming Laptop, Nvidia GeForce GTX, Preis-Leistungs-Verhältnis, Preis-Leistungsverhältnis, Soundcard, Studiomikrofon, Voice-Chat, Windows 10, Beyerdynamic dt770 PRO, Beyerdynamic DT 990, Erfahrungen, Discord, Spiele und Gaming, Laptop

Meistgelesene Beiträge zum Thema Computer