Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Wie kann ich per Skript Emails versenden?

Frage Entwicklung VB for Applications

Mitglied: Kleina

Kleina (Level 1) - Jetzt verbinden

08.02.2012 um 13:26 Uhr, 5653 Aufrufe, 2 Kommentare

Hallo Zusammen,
ich würde gerne per skript ( Makro, VBA) eine offene Datei, TIFF, PDF als Anhang per Mail senden.

Ich würde gerne per skript ( Makro, VBA) eine offene Datei, TIFF, PDF als Anhang per Mail senden.

dabei soll in Outlook eine neue Email geöffnet werden und die offene Datei als Anhang eingefügt werden.
Der Empfänger, Betreff etc. soll manuell in dem Email Formular in Outlook angegeben werden.

Zum Problem ist noch zu sagen das ich ein sozusagen Archiv benutzte, welches Dokumente enthält (diese wurden eingescannt).
diese Dokumente sind als TIFF-Datei hinterlegt.

wenn ich mir also ein Dokument anschaue, soll genau das in Outlook exportiert werden.

Bisher habe ich folgendes geschafft:

Sub EMailSenden()

Dim oNachricht As Object
Dim oOutApp As Object
Dim sEmailAdresse As String
Dim sBetreff As String
Dim sText As String


If sEmailAdresse = "" Then

MsgBox "Es wurde keine Versandadresse gefunden. Bitte überprüfen Sie Ihre Auswahl.", vbInformation, "Hinweis"

Else

Set oOutApp = CreateObject("Outlook.Application")

Set oNachricht = oOutApp.CreateItem(0)

With oNachricht

If InStr(sEmailAdresse, ";") = False Then 'Es ist nur ein Empfänger angegeben -> versende mit To:

.To = sEmailAdresse

Else

.BCC = sEmailAdresse 'Es sind mehrere Empfänger angegeben -> versende mit BCC: wg. Datenschutz

End If

.Subject = sBetreff
.Body = sText


.Display
.Application.Dialogs(xlDialogSendMail).Show

End With

End If

Exit Sub

End Sub


nur leider funktioniert dies nicht und ich kann mir nicht erklären wieso.

Ich hoffe jemand kann mir da weiterhelfen

Vielen Dank schonmal !
Mitglied: Berrnd
08.02.2012 um 16:10 Uhr
Hi,

hättest du die Objekte mal "typsicher" deklariert, hättest du gemerkt, dass ein Objekt vom Typ "Outlook.Application" kein Methode "Application.Dialogs..." hat... ;)

Beispiel, das funktioniert: ;)
01.
Sub EMailSenden() 
02.
    Dim oNachricht As Outlook.MailItem 
03.
    Dim oOutApp As Outlook.Application 
04.
    Dim sEmailAdresse As String 
05.
    Dim sBetreff As String 
06.
    Dim sText As String 
07.
     
08.
    If sEmailAdresse = "" Then 
09.
        MsgBox "Es wurde keine Versandadresse gefunden. Bitte überprüfen Sie Ihre Auswahl.", vbInformation, "Hinweis" 
10.
    Else 
11.
        Set oOutApp = New Outlook.Application 
12.
        Set oNachricht = oOutApp.CreateItem(0) 
13.
         
14.
        With oNachricht 
15.
            If InStr(sEmailAdresse, ";") = False Then 'Es ist nur ein Empfänger angegeben -> versende mit To: 
16.
                .To = sEmailAdresse 
17.
            Else 
18.
                .BCC = sEmailAdresse 'Es sind mehrere Empfänger angegeben -> versende mit BCC: wg. Datenschutz 
19.
            End If 
20.
             
21.
            .Subject = sBetreff 
22.
            .Body = sText 
23.
            .Attachments.Add "C:\temp\test.txt" 
24.
            .Display 
25.
        End With 
26.
    End If 
27.
End Sub
Viele Grüße,
Bernd
Bitte warten ..
Mitglied: Kleina
09.02.2012 um 07:50 Uhr
Vielen Dank!

das hat mir sehr weitergeholfen.

Ich bin auch auf eine andere Lösung gestoßen:

01.
Sub email() 
02.
Application.Dialogs(xlDialogSendMail).Show 
03.
End Sub
kann man diese Funktion nicht auch für andere Dokumente nehmen?
weil dies gilt ja nur für Excel, leider!
Bitte warten ..
Ähnliche Inhalte
Apache Server
gelöst OsTicket Email versenden klappt nicht (5)

Frage von ClepToManix zum Thema Apache Server ...

PHP
gelöst PHP erzeugte Datei gleich als Email versenden (4)

Frage von facebraker zum Thema PHP ...

Windows 10
Skript zum Auslesen und Automatischen Versenden von E-Mails (3)

Frage von weber4134 zum Thema Windows 10 ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Seekrank bei Windows 10 (17)

Frage von zauberer123 zum Thema Windows 10 ...

Windows Server
gelöst Kopiervorgang schlägt fehl, weil Datei- und Ordnername zu lang sind (14)

Frage von Schroedi zum Thema Windows Server ...

Windows 10
Windows 10 Fall Creators Update Fehler (13)

Frage von ZeroCool23 zum Thema Windows 10 ...