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

Excel 2003 VBA script mit cellen inhalt

Frage Entwicklung VB for Applications

Mitglied: bob1986

bob1986 (Level 1) - Jetzt verbinden

19.02.2013 um 13:55 Uhr, 1803 Aufrufe, 1 Kommentar

schonen guten tag alle

erst mal mochte ich mich entschuldigen fur meine schreibfehler

ich kan auch keine a,o,u, punkten verwenden

Hallo alle,

ich habe schon einen fertigen Script aber ich mochte den gerne ausbreiten


mochte gerne das er hier: .Body = "Hierbij de Brokerage update van de holdcage" & " " & Format(Now, "dd-mm-yy")
nach holdcage noch den Zellen Inhalt z.b. von scheibt

68a9dedd4b7153553c69ae3487f6b770 - Klicke auf das Bild, um es zu vergrößern


das ist ein teil von den script:


'Save the new workbook/Mail it/Delete it
TempFilePath = Environ$("temp") & "\"
TempFileName = Sourcewb.Name & " "


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Update Actual Holdkooilijst(0.4) Tilburg" & " " & Format(Now, "dd-mm-yy")
.Body = "Hierbij de Brokerage update van de holdcage" & " " & Format(Now, "dd-mm-yy")
.Attachments.Add Destwb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
.Close SaveChanges:=False
End With

'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr

Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub


ich hoffe jemand kam mir hier weiter helfen und schon mal danke schon

gr BOB
Mitglied: 76109
19.02.2013, aktualisiert um 20:03 Uhr
Hallo Daniel!

In etwa so:
01.
Option Explicit 
02.
 
03.
Const SheetName = "Tabelle1"    'Tabellenname 
04.
 
05.
Const BegZeile = 5              'Von Zeile 5 
06.
Const EndZeile = 10             'Bis Zeile 10 
07.
Const BegSpalte = 1             'Von Spalte A 
08.
Const EndSpalte = 8             'Bis Spalte H 
09.
 
10.
Private Sub CreateMail() 
11.
    Dim sSubject As String, sText As String, sAttachment As String 
12.
     
13.
    sSubject = "Update Actual Holdkooilijst(0.4) Tilburg " & Format(Date, "dd-mm-yy") 
14.
    sText = "Hierbij de Brokerage update van de holdcage " & Format(Date, "dd-mm-yy") 
15.
    sAttachment = Environ("Temp") & "\" & ThisWorkbook.Name 
16.
     
17.
    ThisWorkbook.SaveCopyAs sAttachment 
18.
     
19.
    With CreateObject("Outlook.Application").CreateItem(0) 
20.
        .Subject = sSubject 
21.
        .To = "Max.Mustermann@test.uk" 
22.
        .cc = "Max.Mustermann@test.uk" 
23.
        .HTMLbody = GetHtmlBodyText(sText) 
24.
        .Attachments.Add sAttachment 
25.
        .Display    'oder .Send 
26.
    End With 
27.
 
28.
    Kill sAttachment 
29.
End Sub 
30.
 
31.
Private Function GetHtmlBodyText(ByRef sText) As String 
32.
    Dim sHtmlText As String, c As Long, r As Long 
33.
     
34.
    sHtmlText = "<DIV>" & vbCrLf 
35.
    sHtmlText = sHtmlText & sText & vbCrLf 
36.
    sHtmlText = sHtmlText & "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=1>" & vbCrLf 
37.
    sHtmlText = sHtmlText & "<TBODY>" & vbCrLf 
38.
     
39.
    For r = BegZeile To EndZeile 
40.
        sHtmlText = sHtmlText & "<TR>" & vbCrLf 
41.
        For c = BegSpalte To EndSpalte 
42.
            sHtmlText = sHtmlText & "<TD>" & Sheets(SheetName).Cells(r, c) & "</TD>" & vbCrLf 
43.
        Next 
44.
        sHtmlText = sHtmlText & "</TR>" & vbCrLf 
45.
    Next 
46.
     
47.
    sHtmlText = sHtmlText & "</TBODY></TABLE></DIV>" & vbCrLf 
48.
     
49.
    GetHtmlBodyText = sHtmlText 
50.
End Function
Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel VBA - Inhalte und Dateiname von txt-Dateien automatisch in Excel importieren (2)

Frage von Booster07 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

VB for Applications
Excel VBA Programmierung (6)

Frage von specialuser zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA vereinfachter Import (3)

Frage von Latex78 zum Thema Microsoft Office ...

Neue Wissensbeiträge
LAN, WAN, Wireless

Neue Cisco Catalyst-Serie 9000

Information von Kuemmel zum Thema LAN, WAN, Wireless ...

Sicherheit

Millionen Euro in den Sand gesetzt?

(3)

Information von transocean zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (14)

Frage von Spitzbube zum Thema Netzwerke ...

LAN, WAN, Wireless
Eine Netzwerkdose im Wechsel für zwei unterschiedliche Netze (12)

Frage von kartoffelesser zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Ordner-Freigabe außerhalb der Domäne (9)

Frage von Remsboys zum Thema Windows Netzwerk ...

Windows Server
gelöst "Anmelden über Remotedesktopdienste verweigern" lässt sich nicht bearbeiten! (9)

Frage von schollw zum Thema Windows Server ...