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 Mails automatisiert mit Anhang verschicken per Outlook VBA-Skript

Mitglied: ITSITS

ITSITS (Level 1) - Jetzt verbinden

10.10.2013, aktualisiert 14.10.2013, 3614 Aufrufe, 3 Kommentare

Hallo liebe Leute,

habe ein kleines VBA Skript welches automatisiert Mails verschicken soll.
Dafür wird Outlook 2007 verwendet. Mein Problem ist, dass es im Internet immer heißt "Legen Sie eine Erinnerung im Kalender mit Aussagekräftigen Namen an" oder Legen Sie eine Aufgabe an ....
Damit kann ich als "nicht VBA" experte leider nichts anfangen ....
Daher hoffe ich, dass mir jemand weiterhelfen kann und mich aufklären kann.
Über eine Antwort würde ich mich sehr freuen!

Der VBA Code:

Private Sub Application_Reminder(ByVal Item As Object)
SendAutoEmail Item
End Sub

Private Sub SendAutoEmail(Item As Object)
Dim oTask As Outlook.TaskItem
Dim oMail As Outlook.MailItem
Dim oFld As Outlook.MAPIFolder
Dim ReminderSubject As String
Dim EmailSubject As String
Dim SendTo As String
Dim Message As String

'Task item
ReminderSubject = "DailyMailReminder"

'Email
SendTo = "blabla@DeineDomäne.de"
EmailSubject = "Test"
Message = "this message was sent automatically"

If TypeOf Item Is Outlook.TaskItem Then
Set oTask = Item
If LCase$(oTask.Subject) = LCase$(ReminderSubject) Then

'Set next reminder
oTask.ReminderTime = DateAdd("d", 1, oTask.ReminderTime)
oTask.Save

'Create email
Set oMail = Application.CreateItem(olMailItem)
oMail.Subject = EmailSubject
oMail.Body = Message
oMail.Recipients.Add SendTo
oMail.Recipients.ResolveAll
oMail.Attachments.Add "Z:\Test.txt"
oMail.Send
End If
End If
End Sub
Mitglied: colinardo
12.10.2013 um 10:31 Uhr
Zitat von ITSITS:
Mein Problem ist, dass es im Internet immer heißt "Legen Sie eine Erinnerung im
Kalender mit Aussagekräftigen Namen an" oder Legen Sie eine Aufgabe an ....
Hallo ITSITS,
diese Aussage trifft hier zu da dein Code in dieser Zeile:
If LCase$(oTask.Subject) = LCase$(ReminderSubject) Then
einen Vergleich des "Betreffs" deines Termins vornimmt, d.h. in diesem Fall wird dieser mit der Zeichenfolge "DailyMailReminder" verglichen., d.h. nur wenn diese Bedingung zutrifft wird eine Mail verschickt

Grüße Uwe
Bitte warten ..
Mitglied: ITSITS
14.10.2013, aktualisiert um 09:22 Uhr
Danke, funktioniert!!!
Bitte warten ..
Mitglied: colinardo
14.10.2013 um 09:34 Uhr
Dann Beitrag bitte noch als gelöst markieren. Danke.
Grüße Uwe
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 ...

Batch & Shell

Skript zum E-Mail Anhang ausdrucken

gelöst Frage von NetzuserBatch & Shell5 Kommentare

Hallo zusammen, ich bin auf der Suche nach einem Skript das als Dienst und Client unabhängig auf meinem Exchange ...

Microsoft Office

Mails via VBA Makro aus Excel mit Anhang versenden

gelöst Frage von ExxiStMicrosoft Office2 Kommentare

Hallo zusammen, hoffe es kann mir jemand bei folgendem Problem helfen. Ich hänge hier nun schon seit Tagen fest ...

Outlook & Mail

Outlook 2016 Mail-Anhänge in andere Mail kopieren

gelöst Frage von ProfDrHouseOutlook & Mail7 Kommentare

Hallo zusammen, wie im Titel zu lesen will ich alle Anhänge auf einmal von einer erhaltenen Mail in eine ...

Neue Wissensbeiträge
Sicherheit

Oracle gibt kritische Updates für diverse Produkte frei (16. Oktober 2018)

Information von kgborn vor 7 StundenSicherheit

Oracle hat zum 16. Oktober 2018 eine ganze Reihe an kritischen Updates für seine Produkte freigegeben. Eine Kurzübersicht mit ...

Windows 10
FYI: Fristen beim Windows 10 Downgrade-Recht
Information von kgborn vor 8 StundenWindows 10

Möglicherweise ist das bei euch bekannt - ich habe es gerade aus einem Newsletter eines OEMs herausgefischt. Beim Downgrade-Recht ...

CMS
Freie Wähler Bayern MySQL PW online
Information von sabines vor 11 StundenCMS6 Kommentare

Die Typo3 Installation der Freien Wähler Bayern scheint wohl längere Zeit nicht mehr angefasst und/oder fehlkonfiguriert zu sein. Nach ...

Sicherheit
Adminrechte dank Bug in Intel HD Graphics Treiber
Information von DerWoWusste vor 1 TagSicherheit

Intel HD graphics 4200 und neuer (4400, 4600 520,530,620, 630,) sind auf jeden Fall betroffen und bereinigte Treiber sind ...

Heiß diskutierte Inhalte
Windows 10
Sysprep Fehler im Log kann nicht starten
Frage von grillinator95Windows 1020 Kommentare

Hallo, kann leider SYSPREP nicht mehr starten, Win10 64bit. Logfile sagt folgendes: 2018-10-17 13:44:56, Info SYSPRP 2018-10-17 13:44:56, Info ...

Internet
Ist diese URL denkbar (Syntax)?
gelöst Frage von departure69Internet17 Kommentare

Hallo. Der Sohn eines Arbeitskollegen hat im Gymnasium EDV-Unterricht. Leider hat er in der letzten Klassenarbeit einen Fünfer geschrieben. ...

Debian
Linux debian 9 Installation
Frage von Green14Debian15 Kommentare

Hallo zusammen, ich habe mich ein wenig mit Debian auseinandergesetzt und möchte mir eine Standard-Installation als Grundlage für andere ...

Exchange Server
Outlook Anywhere - Anmeldefenster muss mit Domain gefüllt werden
Frage von leon123Exchange Server15 Kommentare

Hallo zusammen, ich habe relativ erfolgreich einen Exchange 2016 aufgesetzt, sowie ein SAN-Zertifikat eingespielt und Outlook Anywhere aktiviert. Beim ...