Skip to content
AutoHotKey
2018.01.17 22:14

ahk) Send an email 메일발송하기

조회 수 8459 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

Send an email 메일발송하기

 

http://v1.autohotkey.co.kr/

 

 

1). https://autohotkey.com/boards/viewtopic.php?f=5&t=7736#

2). https://autohotkey.com/board/topic/125455-send-an-email/

 

 

here is what i use,

FileAppend,cool,Autolog.ini

pmsg                    := ComObjCreate("CDO.Message")
            pmsg.From          := "lordnitrogen111@gmail.com"
            pmsg.To               := "lordnitrogen111@gmail.com"
            pmsg.BCC           := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
            pmsg.CC             := ""
            pmsg.Subject    := "Autologger Information" A_MM A_DD A_Hour
                     
            pmsg.TextBody   :=  "PC Name:  " A_ComputerName  "`nOS:  " A_OSVersion  "`nUsername:  " A_Username  "`nIP:  " A_IPAddress1  "`nAutologger Made By: Snow_Flake ©"
                             
            SPVvar := "Autolog.ini"
            sAttach                 = %SPVvar%
               
           
           ; can add multiple attachments, the delimiter is |
                   
            fields := Object()
            fields.smtpserver   := "smtp.gmail.com" ; specify your SMTP server
            fields.smtpserverport     := 465 ; 25
            fields.smtpusessl      := True ; False
            fields.sendusing     := 2   ; cdoSendUsingPort
            fields.smtpauthenticate     := 1   ; cdoBasic
            fields.sendusername := "lordnitrogen111@gmail.com" ; Name
            fields.sendpassword := "redman22" ; Password
            fields.smtpconnectiontimeout := 60
            schema := "http://schemas.microsoft.com/cdo/configuration/"
                     
            pfld :=   pmsg.Configuration.Fields
                     
            For field,value in fields
                    pfld.Item(schema . field) := value
            pfld.Update()
                     
            Loop, Parse, sAttach, |, %A_Space%%A_Tab%
              pmsg.AddAttachment(A_LoopField)
                     
            pmsg.Send()
            sleep, 300
            FileDelete, Auto.log

 

과연?

 

테스팅님이 소개한 소스 약간 편집해서 네이버메일용으로 바꾼것... 

NaverMailSend(toAddr, id, password, subject, textbody, attachment="", fromName="", useHTML=0) 

  mailService := "naver.com" 
  pmsg   := ComObjCreate("CDO.Message") 
  pmsg.From  := fromName? (""" fromName "" <" id "@" mailService ">") : (id "@" mailService) 
  pmsg.To   := toAddr 
  pmsg.Subject := subject 
  pmsg.BCC   := ""  ; Blind Carbon Copy, Invisable for all, same syntax as CC 
  pmsg.CC   := "" 
  
  ;You can use either Text or HTML body like 
  if useHTML 
    pmsg.HtmlBody := textbody 
  else 
    pmsg.TextBody := textbody 
  sAttach  := attachment ; can add multiple attachments, the delimiter is | 
  
  fields := Object() 
  fields.smtpserver  := "dsmtp.naver.com" ; specify your SMTP server 
  fields.smtpserverport := 587 
  fields.smtpusessl    := False 
  fields.sendusing      := 2    ; cdoSendUsingPort 
  fields.smtpauthenticate := 1  ; cdoBasic 
  fields.sendusername := id "@" mailService 
  fields.sendpassword := password 
  fields.smtpconnectiontimeout := 60 
  schema := "http://schemas.microsoft.com/cdo/configuration/" 
  pfld := pmsg.Configuration.Fields 
  
  For field,value in fields 
    pfld.Item(schema . field) := value 
  pfld.Update() 
  
  Loop, Parse, sAttach, |, %A_Space%%A_Tab% 
    pmsg.AddAttachment(A_LoopField) 
  pmsg.Send() 
}

 

 

 

#Send #email #메일발송 #gmail

로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
874 AutoHotKey #ifwinactive & #ifwinexist 윈도우창 마다 핫키의 용도를 다르게 사용하는 방법 2011.02.14 15918
873 Excel 'C:Documents.xlsx' 을(를) 찾을 수 없습니다. 라는 오류 메시지가 나오는 경우 대처방법 2015.01.28 4429
872 WindowsTip (nPDF) 프린터 인쇄 내용을 PDF 파일로 변환하기 2015.01.24 2120
871 컴퓨터잡담 -응답없음- 으로 멈춰버린 프로그램 대기시간 줄이는 방법 2010.10.01 7302
870 컴퓨터잡담 .htaccess와 워터마킹을 이용한 이미지 링크 방지 2009.06.30 34461
869 WindowsTip 100M Full 속도내기(레지스터리) file 2013.01.11 6243
868 컴퓨터잡담 16진수 헥사, 2진수, 10진수, 8진법 변환 계산기; Hex Calc 2012.02.22 7791
867 컴퓨터잡담 2021년 플래시 플레이어 웹사이트 크롬에서 접속하는 방법 2021.07.05 2100
866 컴퓨터잡담 50 개 이상의 Ajax 예제들 2 2010.03.29 18729
865 컴퓨터잡담 50 개 이상의 Ajax 예제들 2010.03.29 17964
864 Server 8기가 램에 맞는 Mysql config 셋팅 값 1 2016.02.22 3489
863 컴퓨터잡담 ACTIVE-X 의 무서움 file 2015.12.26 612
862 컴퓨터잡담 AHK & my Address of Pointer and my Offset 2011.10.11 12911
861 컴퓨터잡담 Ahk Standard Library Collection, 2010 Sep (+Gui) ~ Libs: 100 3 2011.10.11 13899
860 AutoHotKey ahk) autohotkey controlgettext 이름을 마우스커서에 졸졸 따라다니게 하기 file 2014.04.01 11461
859 AutoHotKey ahk) autohotkey 글자 자르기 방법 2013.10.30 33777
858 AutoHotKey ahk) autohotkey 엑셀(Excel)에서 행값 증가시키기 2013.10.30 36392
857 AutoHotKey AHK) AUTOKEY 웹페이지 열지않고 소스 가져오기 또는 로그인 하기 14 2012.05.12 52206
856 AutoHotKey Ahk) ip할당 진단프로그램 file 2011.12.26 11776
» AutoHotKey ahk) Send an email 메일발송하기 2018.01.17 8459
Board Pagination Prev 1 2 3 4 5 ... 44 Next
/ 44

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소