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

Daten aus Excel Datei per VB Script versenden.

Frage Microsoft Microsoft Office

Mitglied: 103148

103148 (Level 1)

21.05.2014 um 07:50 Uhr, 1459 Aufrufe, 1 Kommentar

Hallo,

wir haben eine Excel Datei Office 2007 in der wird in Mappe1 Daten eingegeben, diese erzeugen eine Auswertung die in Mappe 2 steht.

Nun möchte ich mit einer "Funktion" die Mappe2 aus Excel versenden.

Kann mir einer bitte genau erklären wie ich diese Funktion anlege.

Drücke ich auf den Entwicklermodus und dann auf VB Script und würde ein Sricpt ( aus google gefunden ) dort einfügen, passiert noch lange nichts mit der Zelle.
Wie wir so eine Funktion aktiv, auf einer Zelle?

Ideal wäre ich könnte über Office Outlook auch eine Vorlage ansprechen.

Mitglied: colinardo
21.05.2014, aktualisiert 18.07.2014
Hatten wir schon diverse male...
Ideal wäre ich könnte über Office Outlook auch eine Vorlage ansprechen.

Fürs letzte mal noch ein Beispiel:
01.
Sub SendWorkbook() 
02.
    Dim wb2 As Workbook 
03.
    Set wb2 = Workbooks.Add 
04.
    wb2.SaveAs "C:\Test.xlsx" 
05.
    email "max@muster.de", "Testsubject", "Testbody", Array(wb2.FullName) 
06.
End Sub 
07.
 
08.
 
09.
Function email(sMailto, sSubject, sBodyText, arrAttachments) 
10.
    On Error Resume Next 
11.
    Set objOutlook = GetObject("","Outlook.Application") 
12.
    If objOutlook Is Nothing Then 
13.
	Set objOutlook = CreateObject("Outlook.Application") 
14.
    End If 
15.
    Set objMail = objOutlook.CreateItem(0) 
16.
    ' wenn gewünscht Mail stattdessen anhand eines *.oft Templates erstellen 
17.
    ' Set objMail = objOutlook.CreateItemFromTemplate("C:\PfadzumTemplate\Vorlage.oft") 
18.
    If Not objMail Is Nothing Then 
19.
        With objMail 
20.
            .To = sMailto 
21.
            .Subject = sSubject 
22.
            .Body = sBodyText 
23.
            If UBound(arrAttachments) <> -1 Then 
24.
                For i = 0 To UBound(arrAttachments) 
25.
                    .Attachments.Add arrAttachments(i) 
26.
                Next 
27.
            End If 
28.
            .Display 
29.
            '.Send 
30.
        End With 
31.
    End If 
32.
    Set objOutlook = Nothing 
33.
End Function

Grüße Uwe

p.s. und schließe mal deine alten Threads wenn sie nicht mehr aktuell sind. Merci.
Bitte warten ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

Informationsdienste
Excel Datei ohne Download zur Verfügung stellen (4)

Frage von gnaulimon zum Thema Informationsdienste ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (13)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...