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, 1465 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
Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (11)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Router & Routing
Cisco887VAW -VPN NAT-Freigabe (8)

Frage von Serial90 zum Thema Router & Routing ...