excel macro

[baukjen]

Wie kan mij in de goede richting helpen?

Bij gebruik van onderstaande macro de onderstaande melding.
Wie kan mij uitleg geven wat er mis gaat en wat er an gedaan moet worden??

Alvst bedabkt voor de reactie

Hartelijke groet
Baukjen

Bekijk bijlage 249779

 

[gast0660]

Hoi,
Naar mijn bescheiden mening:

Je moet een outlook template hebben (in dit geval message.msg, op uw c schijf in de map tmp), je moet de inhoud van het rode kaderetje veranderen naar de juiste template op de juiste locatie. Zoiets als (C:\jij\Documenten\mischien een map\uwtemplate.msg)
Greetz

 

[VenA]

Kijk bv even hier hoe het wel moet http://www.rondebruin.nl/win/s1/outlook/amail1.htm

 

[baukjen]

Excel Bulk Mail

Bedankt voor de reacties. Helaas nog niet werkende. Bij Ron de Bruin staat niet wat ik zoek en helaas begrijp ik ook niet helemaal de Engelse taal. Wat ik wens is om vanuit een bestand bulk mail te kunnen verzenden. Foutmelding is nu een andere.

Bedankt dat jullie mee willen denken:thumb:

EBekijk bijlage 249801xcel

 

[gast0660]

Hoi,
Als je bulk mail wil verzenden heb ik hier wel een vbtje in excel
Zet in blad kies de email adressen op ja en een klein berichtje
Blad 1 wordt meegestuurd als bijlage(excel) maar zijn nog een paar andere mogelijkheden zoals txt (moet ik effen opzoeken) is het zoiets dat je wilt?
gewoon eens testen met uw eigen email

 

[baukjen]

macro

ja dit is ongeveer wat ik bedoel. Welk deel moet uit de macro om de verzending van de attach te verwijderen?
bestaat er ook een mogelijkheid om de tekst in outlook klaar te zetten xx.msg en dat de macro daar naar toe verwijst?

vriendelijke groet
baukjen

 

[HSV]

Test onderstaande code eens.
Je kan voor de .body typen in een inputbox.
Voor een volgende regel geef je geen Enter in, maar een "\".

In de body wil je bijvoorbeeld:

Hallo Baukjen,


Hoe gaat het ermee?
Lange tijd niet gezien.

In de inputbox schrijf je dan.

Hallo Baukjen\\hoe gaat het ermee?\Lange tijd niet gezien.

Sub Mail_ActiveSheet()
Dim OutApp As Object, cl As Range, bodytekst As Variant
 With CreateObject("Outlook.Application").CreateItem(0)
            For Each cl In ThisWorkbook.Sheets("Kies").Columns(2).SpecialCells(2)
                If cl.Value Like "?*@?*.?*" And LCase(cl.Offset(0, 1).Value) = "ja" Then
                    If strto = "" Then strto = stro & ";"
                    strto = strto & cell.Value & ";"
                End If
            Next cl
            
            .To = strto
            .CC = ""
            .BCC = ""
            .Subject = "Opdrachten"
            bodytekst = Replace(Application.InputBox("Vul hieronder iets in", "Toe maar", "Typ hier je tekst", , , , , 2), "\", vbLf)
              If bodytekst = False Or bodytekst = "" Or bodytekst = "Typ hier je tekst" Then
                .body = ""
              Else
                .body = bodytekst
              End If
            .Display
        End With
End Sub

 

[baukjen]

reactie op #7

er komt een fout melding

hartelijke groet
baukjen


Bekijk bijlage 250125

 

[HSV]

Dag baukjen,

Ik meende dat ik alle variabelen genaamd 'cell' veranderd had in de code door 'cl'.
Eentje vergeten dus.
Mocht je er meer tegenkomen verander het.
Een variabele genaamd 'cell' vind ik persoonlijk een verkeerde keuze daar het erg onoverzichtelijk wordt (cell/cells).

Verander:

strto = strto & cell.Value & ";"

In.

strto = strto & cl.Value & ";"

 

[baukjen]

bedankt nu werkt het.
hartelijke groet
baukjen
:thumb:

 

[baukjen]

nog niet wat ik zoek

Eerst is er een mail bericht klaargemaakt in Oulook. Deze is opgeslagen als TestMail.msg.
Het vreemde is dat er steeds een fout melding komt. Wie heeft er idee waar deze mee te maken heeft?

Bedankt voor de reactie.

Hartelijke groet
Baukjen


Bekijk bijlage Bulk_Mail.xlsm

Bekijk bijlage 251551

 

[HSV]

Test het zo maar eens nadat je in 'verwijzingen' "Microsoft office 12.0 Object library" hebt aangevinkt (12.0 of van de office versie die jij bezit).

Moet je wel van de gegevens een Tabel (Listobject) maken.

Sub Mailing()
Dim lo As ListObject
Dim r As Range
Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
  Set lo = ActiveSheet.ListObjects(1)
  If oApp.Session.Offline Then
  For Each r In lo.Range.Rows
  MsgBox r.Address
    If r.Cells(, 1) <> "" And _
    UCase(r.Cells(, 3)) = "JA" Then
      Set oMail = _
      oApp.CreateItemFromTemplate("C:\TestMail.msg")
      oMail.To = r.Cells(, 2)
      oMail.Recipients.ResolveAll
      oMail.Send
      r.Cells(4) = Now()
      Set oMail = Nothing
    End If
  Next r
  MsgBox "Controleer eerst de mailtjes" & vbNewLine & _
  "Ga in Outlook naar SEND/RECEIVE en zet Outlook weer " & _
  "online door de Work Offline-button uit te klikken." & _
  vbNewLine & "Meteen daarna worden je mails verstuurd."
Else
  MsgBox "Zet eerst Outlook in Offline modus" & vbNewLine _
  & "Ga in Outlook naar SEND/RECEIVE en zet Outlook " & _
  "offline door de Work Offline-button aan te klikken." & _
  vbNewLine & "De mails worden dan niet meteen verstuurd."
End If
End Sub