Thema Datum  Von Nutzer Rating
Antwort
12.01.2016 09:59:59 BillyRayRhodes
NotSolved
12.01.2016 10:07:51 steffesj
NotSolved
12.01.2016 10:29:50 Gast41998
NotSolved
12.01.2016 10:35:12 Gast41647
NotSolved
Rot Auswahl per Email versenden
 12.01.2016 11:00:30 steffesj
NotSolved
12.01.2016 12:29:51 Gast7383
Solved
12.01.2016 13:05:33 steffesj
NotSolved

Ansicht des Beitrags:
Von:
steffesj		 Datum:
12.01.2016 11:00:30		 Views:
951		 Rating:
     
Antwort:
  Ja
Thema:
Auswahl per Email versenden

Wenn du das mit der Abfrage für die Zeile machst musst du als erstes statt mit Range mit Cells arbeiten. Der Befehl Cells ist folgendermaßen aufgebaut. Cells(Zeile,Spalte)

 

Probier mal, ob es funktioniert, sonst muss die die Cells noch bisschen an deine Tabelle anpassen.

Hab probiert, bei mir funktioniert es jetzt.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Senden()
 
 Dim zeile As Integer
 
zeile = InputBox("GEben Sie ihre Spalte an")
 
 
 
On Error Resume Next
Dim olApp As Object
Dim strhtml As String
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
strhtml = Range("A2").Value & " <br><br>" & "<br>"
strhtml = strhtml & "Info: &nbsp;" & "<br>" & Cells(zeile,13) & " <br>"
strhtml = strhtml & "Artikelnummer: &nbsp;" & Cells(zeile, 1) & " <br>" & "<br>"
strhtml = strhtml & "Bezeichnung: &nbsp;" & Cells(zeile, 2) & " <br>" & "<br>"
strhtml = strhtml & "Seriennummer: &nbsp;" & Cells(zeile, 3).Value & " <br>" & "<br>"
strhtml = strhtml & "Besondere Merkmale: &nbsp;" & Cells(zeile, 4).Value & " <br>" & "<br>"
strhtml = strhtml & "Geliefert an: &nbsp;" & Cells(zeile, 5) & " <br>" & "<br>"
strhtml = strhtml & "Geliefert am: &nbsp;" & Cells(zeile, 6) & " <br>" & "<br>"
strhtml = strhtml & "Aufgestellt bei: &nbsp;" & Cells(zeile, 7) & " <br>" & "<br>"
strhtml = strhtml & "Aufgestellt am: &nbsp;" & Cells(zeile, 8) & " <br>" & "<br>"
strhtml = strhtml & "Link zu Protokoll/Info: &nbsp;" & Cells(zeile, 9) & " <br>" & "<br>"
strhtml = strhtml & "Angelegt von: &nbsp;" & Cells(zeile,10) & " <br>" & "<br>"
strhtml = strhtml & "Bemerkung: &nbsp;" &  Cells(zeile,11) & " <br>" & "<br>"
strhtml = strhtml & ""
strhtml = strhtml & ""
.to = "" 'Empfänger
.Subject = "Seriennummerinformation"
' .cc = "kopie@an.de" 'Optional Kopie an
' .bcc = "bliendkopie@an.de" 'Optional Bliendkopie
.htmlbody = strhtml
.display 'Zeigt die Mail an
' .send 'Optional Mail sofort senden.
End With
Set olApp = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.01.2016 09:59:59 BillyRayRhodes
NotSolved
12.01.2016 10:07:51 steffesj
NotSolved
12.01.2016 10:29:50 Gast41998
NotSolved
12.01.2016 10:35:12 Gast41647
NotSolved
Rot Auswahl per Email versenden
 12.01.2016 11:00:30 steffesj
NotSolved
12.01.2016 12:29:51 Gast7383
Solved
12.01.2016 13:05:33 steffesj
NotSolved