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

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, 1773 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

Batch & Shell
gelöst Exceltabelle mit Script nach Inhalt suchen (11)

Frage von Crank69 zum Thema Batch & Shell ...

Batch & Shell
Powershell Script um Inhalt von Dateien zu vergleichen (14)

Frage von zamsi7 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...