VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Serienbrief per VBA als Email automatisch versenden	08.02.2013 15:44:17	All93rounder
Serienbrief per VBA als Email automatisch versenden	11.02.2013 08:41:58	Max
Serienbrief per VBA als Email automatisch versenden	11.02.2013 10:10:38	All93rounder
Serienbrief per VBA als Email automatisch versenden	11.02.2013 11:12:54	Max
Serienbrief per VBA als Email automatisch versenden	11.02.2013 11:24:49	Gast78832
Serienbrief per VBA als Email automatisch versenden	11.02.2013 11:38:24	Max
Serienbrief per VBA als Email automatisch versenden	11.02.2013 12:14:36	All93rounder

Ansicht des Beitrags:

Von:
Max

Datum:
11.02.2013 08:41:58

Views:
1242

Rating:

Antwort:

Thema:
Serienbrief per VBA als Email automatisch versenden

Ich bin so frei und hau dir einfach ein paar "Codeschnipsel" um die Ohren. Ich denke damit kannst du was anfangen wenn du verständnis in VB hast. Das zu Coden würde hier den Rahmen sprengen:

Email senden:

Sub so()
   Dim objApp As Object
   Dim objMailItem As Object
   Dim Adress As Variant
   Dim sAdress As String, sSubject As String
   Set objApp = CreateObject("Outlook.Application")
   Set objMailItem = objApp.CreateItem(0)

sAdress = "Emailadresse"
sSubject = "Betreff"

With objMailItem
.To = sAdress
.Subject = sSubject
.body = "text der Mail"
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Attachments.Add "c:\Datei.pdf"
.send
End With

Set objMailItem = Nothing
Set objApp = Nothing

End Sub

PDF Speichern:

Sub pdfspeichern()

Sheets("Tabelle1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Desktop\" & Dateiname_fest, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub



...Damit solltest du zumindest einmal anfangen können

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Serienbrief per VBA als Email automatisch versenden	08.02.2013 15:44:17	All93rounder
Serienbrief per VBA als Email automatisch versenden	11.02.2013 08:41:58	Max
Serienbrief per VBA als Email automatisch versenden	11.02.2013 10:10:38	All93rounder
Serienbrief per VBA als Email automatisch versenden	11.02.2013 11:12:54	Max
Serienbrief per VBA als Email automatisch versenden	11.02.2013 11:24:49	Gast78832
Serienbrief per VBA als Email automatisch versenden	11.02.2013 11:38:24	Max
Serienbrief per VBA als Email automatisch versenden	11.02.2013 12:14:36	All93rounder