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

Mails automatisiert mit Anhang verschicken per Outlook VBA-Skript

Frage Entwicklung VB for Applications

Mitglied: ITSITS

ITSITS (Level 1) - Jetzt verbinden

10.10.2013, aktualisiert 14.10.2013, 3375 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook vba Email Anhang in Ordner speichern (3)

Frage von Daywalkercxp zum Thema Outlook & Mail ...

VB for Applications
gelöst VBA Skript funktioniert auf lokalen Zugriff, aber nicht auf Netzwerkshare (1)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Outlook & Mail
Importieren von excel daten in outlook vba - Teil 2 (5)

Frage von Bgervais zum Thema Outlook & Mail ...

Heiß diskutierte Inhalte
DSL, VDSL
gelöst DSL 200m verlängern (15)

Frage von Angela44 zum Thema DSL, VDSL ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Windows Server
SBS 2011 Standard virtualisieren (11)

Frage von HeinrichM zum Thema Windows Server ...

Exchange Server
gelöst DHCP Sever MS Server 2012 Problem (10)

Frage von Florian86 zum Thema Exchange Server ...